...Text ausdrucken?

Autor: Gianluca Colombo (Italy)
Homepage: http://www.digitstudios.com

Kategorie: Drucken

var
  
F: TextFile;
begin
  
AssignFile(F, 'LPT1');// LPT2,COM1,COM2...
  
Rewrite(F);
  Writeln(F, 'Hello');
  Writeln(F, 'There!');
  Writeln(F, #12);
  CloseFile(F);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base