Datei auf LPT1: Drucken

[scp]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  f,t : textfile; 
  s : string;
begin 
  assignprn(f); 
  rewrite(f); 
  assignfile(t, 'C:\test.pcl');
  Reset(t);

  while not eof(t) do
  begin
    readln(t, s);
    writeln(f, s); 
  end;

  CloseFile(t);
end;