Hallo,
Zitat von
Zombi:
Einen so langen QT kann ich glaub ich noch nich ganz lernen es bringt ja nix wenn ich das auswendig lerne (was ich bei dieser größe wahrscheinlich eh nich könnte).
Die Prozedur ist in wirklichkeit etwa 5-7 mal länger, es ist ja nur ein kleiner Ausschnitt!
Hier mal die Prozedur abgekürtzt, damit Du vielleicht besser durchblickst.
Delphi-Quellcode:
procedure TMainFormMC2004.DruckenErweitertClick(Sender: TObject);
//Daten Drucken; Im erweiterten Format
var
tf: TextFile; //tf = Variable zum Datei Schreiben
pt: TextFile; //pt = Variable zum Datei Drucken
p: string; //Stringvariable für die Druckdatei
begin
if PrintDialog.Execute then
begin
AssignFile(tf, ExtractFilePath(ParamStr(0)) + 'MeineDatei.txt');
ReWrite(tf); //Datei zum Schreiben Öffnen
WriteLn(tf, 'String 1');
Reset(tf); //Datei zum Lesen Öffnen
AssignPrn(pt); //Drucker "Öffnen"
Printer.Canvas.Font.Name := 'Courier New'; //Schriftart setzen
Printer.Canvas.Font.Size := 10; //Schriftgrösse setzen
ReWrite(pt); //Druckdatei zum Schreiben Öffnen
while not EOF(tf) do //Falls Dateiende noch nicht erreicht
begin
ReadLn(tf, p); //Lies Zeile aus der Datei
WriteLn(pt, p); //Schreib Zeile zum Drucker
end;
CloseFile(pt); //Schliesse Druckdatei
CloseFile(tf); //Schliesse Datei
end;
end;
Hoffe das es jetzt leichter für Dich ist.
Grüsse, Daniel
