Prüfen ob eine Dateivariable mit Assign zugewiesen ist

[Sir Rufo]

Zitat von WM_CLOSE:

So vielleicht?

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile(...);
  if f<>nil then
  begin
    try
      //machwas
    finally
      CloseFile(...);
    end;
  end;
end;

wenn schon mit try..finally dann bitte auch richtig

Delphi-Quellcode:

var
  f:TTextFile
begin
  AssignFile( f, ... );  // f zuweisen
  if f <> nil then
  try
    ReWrite( f );  // oder
    // ReSet( f );  // oder
    // AppendFile( f ); // öffnet den Zugriff auf die Datei
    try
      // machwas
    finally
      CloseFile( f );  // der hier wieder geschlossen wird
    end;
  finally
    f := nil;  // Zuweisung aufheben
  end;
end;