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 ...