DELPHI - Menulis text kedalam sebuah File text .txt

Selamat malam pemirsa :D

kali ini saya bagikan cara untuk menulis ke dalam sebuah file melalui DELPHI..
oke langsung aja lah yah, ini codingnya

procedure TForm1.tbSimpanClick(Sender: TObject);

var TFile : TextFile;

begin

  assignFile(TFile, 'C:\catatan.txt');

  if FileExists('catatan.txt') then

    Append(TFile)

  else

    ReWrite(TFile);

  writeln(TFile,'INI TULISAN PERTAMA SAYA');

  closeFile(TFile);

end;




Coding itu bebas anda letakkan di tempat yang dibutuhkan. silahkan mencoba.

Terimakasih telah berkunjung di giavano.blogspot.com ^_^