Notepad Clone... komm aber nich weiter =(

[Daniel B]

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