Index Konsultasi Delphi || Arsip Pertanyaan

Mencetak suatu file teks

Halo, saya baru dalam dunia delphi. Saya tertarik deplhi lebih ke arah
pemrograman database dan tcp/ip / socket programing. Saya punya masalah bagai mana saya bisa mencetak suatu file txt dengan modus Read file
sebagi contoh :
saya mempunyai file format nota bernama nota.txt sbb :

------------------------------
Nama : <nama>
alamat : <alamat>

Durasi : <waktu>
Biaya : <biaya>
Tambahan : <tambahan>

Total : <Total>

Terima kasih semoga anda
senang dengan pelayanan kami.
------------------------------------

format di atas adalah contoh format nota yang hendak saya buat di
mana kata yang ada di dalam tanda kurung itu di ambil dari database. bagai mana cara supaya bisa mencetak file tersebut tanpa harus menggunakan property quickreport. tolong yah mas.

Oh yah ada gak contoh program dengan sistem koneksi jaringan tcp /ip
seperti program billing warnet ?

Jawaban

var
MyList : TStringlist;
F : TextFile;

begin
MyList := TStringlist.create;
try
MyList.LoadFromFile('c:\tes.txt');

// Anda bisa mereplace data yg ingin direplace disini
for a:=0 to MyList.Count-1 do
begin
if Pos('Total',MyList[a]) then
// dan seterusnya :)
end;

AssignPrn(F);
try
Rewrite(F);
Write(MyList.Text);
finally
CloseFile(F);
end;
finally
MyList.Free;
end;
end;