22 June 2019

Function Untuk Mencetak File Teks (.TXT) Pada Delphi

www.niguru.com
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)

No comments:

Post a Comment