Membuat Notepad Delphi: Buka dan Simpan

Saat bekerja dengan berbagai aplikasi dan Windows Delphi, kita sudah terbiasa beroperasi dengan salah satu standar kotak dialog untuk membuka dan menyimpan file, menemukan dan mengganti teks, mencetak, memilih font atau mengatur warna.

Pada artikel ini, kita akan memeriksa beberapa properti dan metode terpenting dari dialog tersebut dengan fokus khusus Buka dan Menyimpan kotak dialog.

Kotak dialog umum ditemukan pada tab Dialog pada palet Komponen. Komponen-komponen ini mengambil keuntungan dari kotak dialog Windows standar (terletak di DLL di direktori \ Windows \ System Anda). Untuk menggunakan kotak dialog umum, kita perlu menempatkan komponen (komponen) yang sesuai pada formulir. Komponen kotak dialog umum adalah nonvisual (tidak memiliki antarmuka desain-waktu visual) dan karenanya tidak terlihat oleh pengguna saat runtime.

Kotak dialog Buka File dan Simpan File memiliki beberapa properti umum. File Open umumnya digunakan untuk memilih dan membuka file. Kotak dialog Simpan File (juga digunakan sebagai kotak dialog Simpan Sebagai) digunakan ketika mendapatkan nama file dari pengguna untuk menyimpan file. Beberapa properti penting dari TOpenDialog dan TSaveDialog adalah:

• Itu Pilihan properti sangat penting dalam menentukan tampilan akhir dan nuansa kotak. Misalnya, satu baris kode seperti:

  dengan OpenDialog1 melakukanOpsi: = Opsi + [ofAllowMultiSelect, ofFileMustExist];

  akan mempertahankan opsi yang sudah ditetapkan dan memungkinkan pengguna untuk memilih lebih dari satu file dalam dialog bersama dengan menghasilkan pesan kesalahan jika pengguna mencoba untuk memilih file yang tidak ada.
• Itu InitialDir properti digunakan untuk menentukan direktori yang akan digunakan sebagai direktori awal ketika kotak dialog file ditampilkan. Kode berikut akan memastikan bahwa Direktori awal dari kotak Dialog Terbuka adalah direktori startup Aplikasi.

  SaveDialog1.InitialDir: = ExtractFilePath (Aplikasi. ExeName);

• Itu Saring properti berisi daftar jenis file dari mana pengguna dapat memilih. Ketika pengguna memilih jenis file dari daftar, hanya file dari jenis yang dipilih yang ditampilkan dalam dialog. Filter dapat dengan mudah diatur pada waktu desain melalui kotak dialog Filter Editor.
• Untuk membuat topeng file dalam kode program, tetapkan nilai ke properti Filter yang terdiri dari deskripsi dan mask yang dipisahkan oleh karakter batang vertikal (pipa). Seperti ini:
  

  OpenDialog1.Filter: = 'File teks (* .txt) | * .txt | Semua file (*. *) | *. * ';

• Itu Nama file Properti. Setelah pengguna mengklik tombol OK di kotak dialog, properti ini akan berisi path lengkap dan nama file dari file yang dipilih.

Untuk benar - benar membuat dan menampilkan kotak dialog umum, kita perlu memproses Menjalankan metode kotak dialog tertentu saat runtime. Kecuali untuk TFindDialog dan TReplaceDialog, semua kotak dialog ditampilkan secara modial.

Semua kotak dialog umum memungkinkan kami untuk menentukan apakah pengguna mengklik tombol Batal (atau menekan ESC). Karena metode Execute mengembalikan True jika pengguna mengklik tombol OK kita harus menjebak klik pada tombol Batal untuk memastikan bahwa kode yang diberikan tidak dieksekusi.

jika OpenDialog1.Execute kemudian
ShowMessage (OpenDialog1.FileName);

Kode ini menampilkan kotak dialog Buka File dan menampilkan nama file yang dipilih setelah panggilan "berhasil" untuk menjalankan metode (ketika pengguna mengklik Buka).

Catatan: Jalankan kembali True jika pengguna mengklik tombol OK, klik dua kali nama file (dalam kasus dialog file), atau tekan Enter pada keyboard. Jalankan pengembalian False jika pengguna mengklik tombol Batal, menekan tombol Esc, menutup kotak dialog dengan tombol tutup sistem atau dengan kombinasi tombol Alt-F4.

Untuk bekerja dengan dialog Terbuka (atau lainnya) pada saat runtime tanpa menempatkan komponen OpenDialog di formulir, kita dapat menggunakan kode berikut:

prosedur TForm1.btnFromCodeClick (Pengirim: TObject); var OpenDlg: TOpenDialog; mulai OpenDlg: = TOpenDialog. Buat (Mandiri); {setel opsi di sini ...}jika OpenDlg. Menjalankan kemudianmulai
{kode untuk melakukan sesuatu di sini}
akhir; OpenDlg. Gratis; akhir;

Catatan: Sebelum memanggil Execute, kita dapat (harus) mengatur properti komponen OpenDialog.

Akhirnya, saatnya untuk melakukan beberapa pengkodean nyata. Seluruh ide di balik artikel ini (dan beberapa lainnya yang akan datang) adalah membuat aplikasi MyNotepad sederhana - Windows mandiri seperti aplikasi Notepad.
Pada artikel ini kami disajikan kotak dialog Buka dan Simpan, jadi mari kita lihat mereka beraksi.

Langkah-langkah untuk membuat antarmuka pengguna MyNotepad:
. Mulai Delphi dan Pilih File-Aplikasi Baru.
. Tempatkan satu Memo, OpenDialog, SaveDialog dua Tombol pada formulir.
. Ganti nama Button1 menjadi btnOpen, Button2 ke btnSave.

1. Gunakan Object Inspector untuk menetapkan kode berikut ke acara FormCreate:

prosedur TForm1.FormCreate (Pengirim: TObject); mulaidengan OpenDialog1 melakukanmulai
Opsi: = Opsi + [ofPathMustExist, ofFileMustExist]; InitialDir: = ExtractFilePath (Aplikasi. ExeName); Filter: = 'File teks (* .txt) | * .txt'; akhir; dengan SaveDialog1 melakukanmulai
InitialDir: = ExtractFilePath (Aplikasi. ExeName); Filter: = 'File teks (* .txt) | * .txt'; akhir; Memo1.ScrollBars: = ssBoth; akhir;

Kode ini menetapkan beberapa properti dialog Open seperti yang dibahas di awal artikel.

2. Tambahkan kode ini untuk acara Onclick tombol btnOpen dan btnSave:

prosedur TForm1.btnOpenClick (Pengirim: TObject); mulaijika OpenDialog1.Execute kemudianmulai
Form1.Caption: = OpenDialog1.FileName; Memo1.Lines. LoadFromFile. (OpenDialog1.FileName); Memo1.SelStart: = 0; akhir; akhir;

prosedur TForm1.btnSaveClick (Pengirim: TObject); mulai
SaveDialog1.FileName: = Form1.Caption; jika SaveDialog1.Execute kemudianmulai
Memo1.Lines. SaveToFile. (SaveDialog1.FileName + '.txt'); Form1.Caption: = SaveDialog1.FileName; akhir; akhir;

Jalankan proyek Anda. Anda tidak bisa mempercayainya; file membuka dan menyimpan seperti halnya Notepad "asli".

Itu dia. Kami sekarang memiliki Notepad "kecil" kami sendiri.