Datei in Benutzung

[SaFu]

Hi hab mal ne ganz Dumme Frage

Muss man eigentlich Dateien wieder die So auf gerufen werden Freigeben

Delphi-Quellcode:

 lehrerl2:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+ 'alleLehrer.txt';
  Combobox4.Items.LoadFromFile(lehrerl2);

mit File.Free oder sowas :gruebel:

[Daniel G]

Nein, brauchst du nicht. Die Arbeit wird dir von Delphi abgenommen.. :wink:

[SaFu]

Woran kann es liegen das mein Programm beim ersten Neutart den Fehler aus gibt das die Datei von einem anderen Prozess z.Zt in Benutzung ist sie wird am Anfang erzeugt wenn sie nicht da ist

Delphi-Quellcode:

{TxT Dateien erstellen}
procedure TForm1.listeerst;
begin
  if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt') then
    begin
      FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt')
    end;
     begin
       if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'alleLehrer.txt') then
         begin
           FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'alleLehrer.txt')
         end;
     end;
end;

[Daniel G]

Weil du in diesem Falle mit FileCreate eine Datei erstellst. Das war in deinem obigen Beispiel nicht der Fall. :wink:

Außerdem müsste eigentlich FileCreate einen Rückgabewert vom Typ Integer haben. Damit du die Datei wieder freigeben kannst, muss dieses Handle an die Funktion FileClose übergeben werden.

Bsp.:

Delphi-Quellcode:

var
fs: Integer;
begin
  if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt') then
     fs := FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt')
  //An dieser Stelle mit der Datei arbeiten.
FileClose(fs); //Und wieder freigegeben.

Näheres dazu auch in der OH.. :wink:

[SaFu]

Danke genau das hatte ich nicht gemacht

Dank dir :thumb: :cheers: