Mencetak suatu file teks

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;