Membuat dan membaca file txt dari Delphi

1. Pertama tama kita desain form seperti ini

2. lalu atur properties SaveDialog dan OpenDialog dengan ketentuan berikut
    DefaultExt : .txt
    Filter         :   TXT|*.txt|All File|*.*

3. Buat variable global yang mempunyai type data ‘TStringList’. Tujuannya agar variable tersebut bisa kita akses melalui semua procedure atau function yang ada didalam form ini. Letakkan variable tepat diatas implementation dan Nama variable adalah :

fileData : TStringList;

4.   Selanjutnya buat 2 procedure dibawah implementation seperti berikut :

procedure createFile(nm_file, isi_file:String);

var

   myFile : TextFile;

 begin

   AssignFile(myFile, nm_file);

   ReWrite(myFile);

   WriteLn(myFile, isi_file);

   CloseFile(myFile);

 end;

procedure readFile(nm_file:String);

var lines,i : integer;

    saveLine : String;

begin

   fileData := TStringList.Create;

   fileData.LoadFromFile(nm_file);

   lines := fileData.Count;

   for i := 0 to lines - 1 do

   begin

      saveLine := fileData[i];

      fileData[i] := saveLine;

   end;

end;

5.      Selanjutnya isikan source code pada events onClick pada tombol ‘Buat File’. Isi source code adalah :

procedure TForm1.Button1Click(Sender: TObject);

begin

  if trim(Memo1.Text)='' then begin

    beep;

    ShowMessage('Isi File Harus Ada ...!');

    exit;

  end else

  if SaveDialog1.Execute then

    if SaveDialog1.FileName<>'' then

        createFile(SaveDialog1.FileName, Memo1.Text);

end;

6.  Source code pada events onClick pada tombol ‘Baca File’. Isi source code adalah :

procedure TForm1.Button2Click(Sender: TObject);

begin

  Memo1.Clear;

  if OpenDialog1.Execute then

    if OpenDialog1.FileName<>'' then begin

        readFile(OpenDialog1.FileName);

        Memo1.Lines.Append(fileData.Text);

    end;

end;

7.  Isi pada tombol ‘Keluar’. Isi source code :

procedure TForm1.Button3Click(Sender: TObject);

begin

  close;

end;

OUTPUT

1. Tulis kata kata yg ingin di simpan

2. lalu klik buat file untuk menyimpannya dan masukkan nama untuk file

3. inilah hasil file yang berhasil disimpan

4. kemudian kita coba untuk membaca file nya, klik baca file

5. pilih file yang telah disimpan sebelumnya yang bernama test

6. Dan violaaa, file txt yang dibaca pun ditampilkan di delphi

7. tidak bisa menyimpan memo yang kosong, jika menyimpannya maka muncul peringatan

Untuk Source Code lengkap, silahkan dibuka spoiler nya

Source Code Lengkap:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
fileData : TStringList;

implementation

{$R *.dfm}

procedure createFile(nm_file, isi_file:String);
var
myFile : TextFile;
begin
AssignFile(myFile, nm_file);
ReWrite(myFile);

WriteLn(myFile, isi_file);

CloseFile(myFile);
end;

procedure readFile(nm_file:String);
var lines,i : integer;
saveLine : String;
begin
fileData := TStringList.Create;
fileData.LoadFromFile(nm_file);

lines := fileData.Count;

for i := 0 to lines - 1 do
begin
saveLine := fileData[i];
fileData[i] := saveLine;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if trim(Memo1.Text)='' then begin
beep;
ShowMessage('Isi File Harus Ada ...!');
exit;
end else
if SaveDialog1.Execute then
if SaveDialog1.FileName<>'' then
createFile(SaveDialog1.FileName, Memo1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
if OpenDialog1.Execute then
if OpenDialog1.FileName<>'' then begin
readFile(OpenDialog1.FileName);
Memo1.Lines.Append(fileData.Text);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.