19 June 2019

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

www.niguru.com
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):

www.niguru.com


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

www.niguru.com


Ubah nama Button1 menjadi LoadFileText:

www.niguru.com


Ubah nama Button2 menjadi SaveFileText:

www.niguru.com


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);

www.niguru.com

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!');

www.niguru.com

Hasilnya:

www.niguru.com


www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment