Record und in File speichern

[delphinia]

Ok ich ahb es so gelöst!

ist da was zu verbessern drinne?

Delphi-Quellcode:

function TWK_Form.write_Data: boolean;
var
  f: Textfile;
  i: Integer;
begin
  pro_1.MaxValue := allcnt;
  Result := False;

  AssignFile(f, FileName);
  try
    if FileExists(FileName) = False then
      Rewrite(f)
    else
    begin
      ReWrite(f);
    end;

    for i := 0 to allcnt - 1 do
    begin
      pro_1.Progress := i;
      WriteLn(f, IntToStr(ArtArr[i].ID) + ';' + ArtArr[i].d1 + ';' + ArtArr[i].d2);
      Application.ProcessMessages;
    end;

    Result := True;
  finally
    CloseFile(f);
    pro_1.Progress := 0;
  end;
end;