Beranda > String dan bilangan > Trik untuk menggabungkan beberapa file txt dalam satu memo

Trik untuk menggabungkan beberapa file txt dalam satu memo

Jika anda sering menggunakan Aplikasi Word maka ada satu fungsi untuk menempatkan file-file yang dipilih pada lembar kerja yang sedang kita buka, yaitu terdapat pada menu Insert > File, cara ini pun dapat kita buat sendiri. Untuk itu ikuti langkah-langkah berikut ini.

Siapkan aplikasi baru , lalu tambahkan komponen Memo ,Button, dan OpenDialog. Yang kira-kira formnya akan seperti ini

Gbr. Tampilan awal

Lalu setelah itu masukan kode berikut.

procedure TForm1.FormCreate(Sender: TObject);

begin

Opendialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];

Memo1.ScrollBars:=ssBoth;

Button1.Caption:=’Buka file’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer ;

TempMemo1, TempMemo2 : TStringList ;

begin

Memo1.Clear;

try

Screen.Cursor:=crHourglass;

TempMemo1:=TStringList.Create;

TempMemo2:=TStringList.Create;

if Opendialog1.Execute then

begin

with Opendialog1, TempMemo1 do

for i:=0 to Files.Count-1 do

begin

Clear;

LoadFromFile(Files.Strings[i]);

TempMemo2.Text:= TempMemo2.Text+#10+#13+text;

end;

end;

Finally

Screen.Cursor:=CrDefault;

Memo1.text:= TempMemo2.Text;

TempMemo1.Free;

TempMemo2.Free;

end;

end;

Pada procedure Tform1.FormCreate diatas sebenarnya dapat anda atur propertynya pada saat design time, jadi procedure ini sifatnya optional boleh dipakai boleh juga tidak. Sekarang mari kita jalankan program ini.

Pertama anda akan diminta untuk membuka file, lalu pilihlah file-file yang ingin anda buka

Gbr. Dialog untuk memilih file

Gbr. Hasil dari file-file yang dibuka

  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: