fail-print

Vidiax v predishnite temi edna tema podobna za printirane na Memo,vaprosat mi e kak shte stane razpechatvaneto na fail direktno varxy xartia bez da se prisvoiava na Memo-to

procedure TForm1.PrintFile(const aFileName: string);
const
cPortName = 'LPT1';
var
prnport, prnfile: file;
buffer: array [1..128] of Char;
Read: Integer;
begin
AssignFile(prnfile, aFileName);
Reset(prnfile, 1);

AssignFile(prnport, cPortName);
Rewrite(prnport, 1);

repeat
BlockRead(prnfile, buffer, SizeOf(buffer), Read);
BlockWrite(prnport, buffer, Read);
// Application.ProcessMessages;
until EOF(prnfile) or (Read <> SizeOf(buffer));
CloseFile(prnfile); CloseFile(prnport);
end;{TForm1.PrintFile}