Textdatei zeilenweise drucken?

[Sheppard]

:hi: leutz,

Ich hab schon das ganze forum durchgesucht finde aber nix dazu. Ich weiß das es einfachere Methoden gibt eine Datei zu drucken. Aber ich benötige zeilenweises Drucken!

auf dem Prinzip vom zeilenweisen Einlesen:

Delphi-Quellcode:

var
  Txtdatei:Textfile;
  Zeile:String;
begin
  AssignFile(Txtdatei,'Hallo.txt');
  Reset(Txtdatei);
  Readln(Txtdatei,Zeile);
  ....
  CloseFile(Txtdatei);
end;

schonmal vielen dank im vorraus

[SirThornberry]

na mit

Delphi-Quellcode:

Printer.Canvas.Textout(LinkerRand, YWert, 'DeineZeile');
inc(YWert, Zeilenhöhe);

oder hab ich die frage falsch verstanden?

[Sheppard]

:wall: ich muss noch viel lernern....

danke für die hilfe hat geklappt :thumb: