Membuat Text Editor Sederhana (Dasar) Dengan Menggunakan Bahasa Pemrograman Delphi

Niguru.com | Rabu, 19 Jun 2019 | Pengolahan data yang ada pada file berformat text, seringkali diperlukan oleh programmer dalam membangun sebuah aplikasi. File berformat teks yang berukuran kecil seringkali dipilih sebagai media untuk mentransfer data dari sebuah aplikasi ke aplikasi lainnya.

Pada posting kali ini Niguru.com akan menjelaskan langkah-langkah untuk membuat aplikasi TEXT EDITOR sederhana yang hanya dilengkapi dengan sebuah canvas kecil sebagai halaman editor, sebuah tombol untuk memuat file (tanpa ada opsi dialog) dan sebuah tombol untuk menyimpan file (juga tanpa opsi dialog).



Script sengaja dibuat sederhana agar pembaca dapat memahami secara persis instruksi apa saja yang merupakan instruksi inti untuk mengolah data pada file berformat teks.

Buat file berformat teks (.TXT) dengan aplikasi Notepad, beri nama MyTextFile.txt (boleh menggunakan nama lain, asalkan tahu cara merubah script program):

Buka Delphi, pada Form Canvas tempatkan komponen Memo dan 2 buah Button /tombol:

Ubah nama Button1 menjadi LoadFileText:

Ubah nama Button2 menjadi SaveFileText:

Pada event click pada LoadFileText, ketikkan script:
Var
InputFile:textfile;
FileName,FileContent:string;
Begin
FileName:='MyTextFile.txt';
Assignfile(InputFile,FileName);
Reset(InputFile);
While not eof(InputFile) do
Begin
Readln(InputFile,FileContent);
Memo1.lines.add(FileContent);
End;
Closefile(InputFile);

Pada event click pada SaveFileText, ketikkan script:
Var
OutputFile:textfile;
FileName,FileContent:string;
Begin
FileName:='MyTextFile.txt';
Assignfile(OutputFile,FileName);
Rewrite(OutputFile);
Writeln(OutputFile,memo1.text);
Closefile(OutputFile);
Showmessage('File Content Edited And Saved!');

Hasilnya:

www.Niguru.com (Nino Guevara Ruwano)