AssignFile

Parameter

(var F : TFileClass; FileName: String);

Beschreibung

Die Prozedur AssignFile generiert ein Datei-Objekt vom Typ TFileClass und initialisiert dieses mit dem angegebenen Dateinamen.

Wird das Objekt F via F.Free freigegeben, wird automatisch das zugehörige Datei-Handle geschlossen (CloseFile).

Hinweis

Die Freigabe des Datei-Objekts ist essentiell wichtig, um Memory Leaks zu verhinden. AssignFile sollte daher immer innerhalb eines try finally Blocks verwendet werden.

Beispiel

procedure WriteALineToFile(FileName, Text : String);
var
  MyFile : TFileClass;
begin
  AssignFile(MyFile,FileName);
  try
    try
      Append(MyFile);
    except
      if FileExists(FileName) = false
        then Rewrite(MyFile)
        else Raise('file access exception ('+FileName+')!');
    end;

    Writeln(MyFile,Text);
  finally
    MyFile.Free;
  end;
end;

begin
  for i:=1 to 10000 do
  begin
    WriteALineToFile('c:\temp\test.txt','Hello World '+inttostr(i));
  end;
end;

Beispiel

String1 := '';
try
  AssignFile(F, 'c:\FileName.txt'); Reset(F);
  try
    String1 := Readln(F);   { Erste Zeile der Datei lesen }
  finally
    F.Free;
  end;
except
  ShowMessage('Exception');
end;

Beispiel

var
  F       : TFileClass;
  String1 : String;
begin
  //...
  try
    AssignFile(F, 'c:\FileName.txt'); Reset(F);
    try
      String1 := Readln(F);   { Erste Zeile der Datei lesen }
    finally
      F.Free;
    end;
  except
    ShowMessage('Exception');
  end;
  //...
end;