Meskipun jauh lebih umum pada zaman DOS, sistem operasi modern juga memungkinkan Anda menjalankan parameter baris perintah terhadap aplikasi sehingga Anda dapat menentukan apa yang harus dilakukan aplikasi.
Hal yang sama berlaku untuk Anda Delphi aplikasi, apakah itu untuk aplikasi konsol atau satu dengan GUI. Anda dapat melewatkan parameter dari Command Prompt di Windows atau dari lingkungan pengembangan di Delphi, di bawah Jalankan> Parameter opsi menu.
Untuk tutorial ini, kita akan menggunakan kotak dialog parameter untuk meneruskan argumen baris perintah ke aplikasi sehingga seolah-olah kita menjalankannya dari Windows Explorer.
ParamCount dan ParamStr ()
Itu ParamCount fungsi mengembalikan jumlah parameter yang diteruskan ke program pada baris perintah, dan ParamStr mengembalikan parameter yang ditentukan dari baris perintah.
Itu Aktifkan pengendali acara dari bentuk utama biasanya di mana parameter tersedia. Ketika aplikasi sedang berjalan, ada di sana bahwa mereka dapat diambil.
Perhatikan bahwa dalam suatu program,
CmdLine variabel berisi string dengan argumen baris perintah yang ditentukan saat aplikasi dimulai. Kamu bisa memakai CmdLine untuk mengakses seluruh string parameter yang diteruskan ke aplikasi.Contoh Aplikasi
Mulai proyek baru dan tempatkan a Tombol komponen aktif Bentuk. Di tombol OnClick pengendali acara, tulis kode berikut:
prosedur TForm1.Button1Click (Pengirim: TObject);
mulai
ShowMessage (ParamStr (0));
akhir;
Saat Anda menjalankan program dan mengklik tombolnya, sebuah kotak pesan akan muncul dengan path dan nama file dari program yang menjalankan. Anda bisa melihatnya ParamStr "berfungsi" bahkan jika Anda belum memberikan parameter apa pun ke aplikasi; ini karena nilai array 0 menyimpan nama file aplikasi yang dapat dieksekusi, termasuk informasi jalur.
Memilih Parameter dari Lari menu, lalu tambahkan Pemrograman Delphi ke daftar drop-down.
catatan: Ingatlah bahwa ketika Anda meneruskan parameter ke aplikasi Anda, pisahkan dengan spasi atau tab. Gunakan tanda kutip ganda untuk membungkus beberapa kata sebagai satu parameter, seperti saat menggunakan nama file panjang yang berisi spasi.
Langkah selanjutnya adalah mengulang menggunakan parameter menggunakan ParamCount () untuk mendapatkan nilai parameter menggunakan ParamStr (i).
Ubah pengendali event OnClick tombol menjadi ini:
prosedur TForm1.Button1Click (Pengirim: TObject);
var
j: integer;
mulai untuk j: = 1 untuk ParamCount melakukan
ShowMessage (ParamStr (j));
akhir;
Ketika Anda menjalankan program dan mengklik tombol, muncul pesan yang bertuliskan "Delphi" (parameter pertama) dan "Pemrograman" (parameter kedua).