PrintText Problem

[Tommy1988]

Folgender Code hat bis eben ohne zu meckern funktioniert, aufeinmal nicht mehr:

Delphi-Quellcode:

var Line: Integer;
  PrintText: TextFile;
begin
  if PrintDialog1.Execute then begin
    AssignPrn(PrintText);
    Rewrite(PrintText);
    try
      Printer.Canvas.Font := Memo1.Font;
      for Line := 0 to SynMemo1.Lines.Count - 1 do
        Writeln(PrintText, Memo1.Lines[Line]);
    finally
      CloseFile(PrintText); // Fehler: Angeblich zuviele Parameter!
    end;
  end;
end;

Fehler ist markiert.

[Muetze1]

Schreib mal den Unitnamen (SysUtils.) vor den Funktion.

Sorry, mein Fehler. Die Funktion CloseFile() liegt in der Unit System und von daher wäre dort kein Prefix notwendig.

Mal was anderes: Du musst eine Funktion/Methode haben, welche genau so heisst. Von daher: Rechtsklick auf CloseFile() und dann "Deklaration suchen" um dann zu ermitteln, was der Compiler denn findet...