filecreate produziert e/a-32

[dizzy]

Evtl. wartet Delphi bei "FileCreate" nicht auf dessen Fertigstellung (ist ne API-Fkt.), und geht einfach wieter im Code, und die Datei ist noch nicht "ganz fertig" wenn du schon reinschreiben willst. Aber bei "rewrite" wartet er schon. Klingt zumindest danach!

[Luckie]

Zitat von Toxman:

sicher gehen will, dass die Datei existiert und dann mit [..]

Also, ich löse das immer so:

Delphi-Quellcode:

constructor TTypedFile.Create(Filename : string);
var
  Data : TRecord;
begin
  AssignFile(f, Filename);
  { if exits open it }
  if FileExists(Filename) then
  begin
    //FileMode := fmShareExclusive;
    Reset(f);
  end
  { if not rewrite it }
  else
  begin
{$I-}
    Rewrite(f);
    if IOResult <> 0 then
    begin
      RaiseLastOSError;
{$I+}
      CloseFile(f);
      exit;
    end;
    FillChar(Data, sizeof(Data), #0);
    Data.Index := 0;
    { write the first emtpy record with the MaxID-Value }
    write(f, Data);
  end;
  { get the number of records }
  FRecordsCount := FileSize(f);
end;

[th3lol]

was hälst du von FileClose?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var k: integer;
begin
  k:=filecreate('Termine.txt');
  FileClose(k);
end;

filecreate(); übergibt das handle der erstellten datei und mit fileclose kannste dann die spezielle datei schließen.

antwort kommt ein bisschen spät, aber ich hatte das selbe prob und deswegen hier mal für alle meine mitstreiter