Function Untuk Mencetak File Teks (.TXT) Pada Delphi
Niguru.com | Sabtu, 22 Jun 2019 | File jenis text only (file yang didalamnya hanya memiliki konten teks), merupakan file yang sering dipilih sebagai interface antara 2 atau beberapa aplikasi yang berbeda.
Itulah sebabnya function untuk mencetak file teks (biasanya berekstensi /extension .TXT) biasanya diperlukan oleh seorang programmer, sebagai salah satu kelengkapan pembuatan aplikasi.
Berikut ini function-nya:
Function TXTPrint(InputFile:textfile):boolean;
TXTPrint:=false;
begin
FileName:=InputFile;
Assignfile(InputFile,FileName);
Reset(InputFile);
While not eof(InputFile) do
assignprn(InputFile);
rewrite(InputFile);
writeln(InputFile,'Sedang mencetak' + FileName);
closefile(InputFile);
end;
TXTPrint:=true;
end;
Contoh penggunaan:
HasilCetak:=TXTPrint('MyTextFile.txt');
Untuk menggunakan function ini pada uses harus mendeklarasikan printers.
Bila sukses mencetak, maka nilai dari TXTPrint = TRUE, dan bila gagal mencetak nilai TXTPrint = FALSE.
Demikianlah function untuk mencetak file berformat teks pada Delphi.
Selamat mencoba .. Have a nice day :-)
www.Niguru.com (Nino Guevara Ruwano)
Posting Komentar untuk "Function Untuk Mencetak File Teks (.TXT) Pada Delphi"