Einzelnen Beitrag anzeigen

Innovation

Registriert seit: 12. Jan 2017
7 Beiträge
 
#1

While FileExists endlosschleife

  Alt 3. Feb 2017, 15:55
Delphi-Version: 5
Hallo

Ich versche gerade meinem Tool beizubringen Textdateien mit einer fortlaufenden Nummer (damit keine Datei überschrieben wird )zu erstellen.
Es wird außerdem das Datum mit in den Dateinamen geschrieben
Code:
var
  Datestring, sDir: string;
  f : TextFile;
  helpint : Integer;

begin

  DateString := DateToStr(now);
  helpint :=1;
  //HIER WIRD GEGEBENENFALLS EIN ORDNER ANGELEGT
  sDir :='C:\XML Compare Fehlerbericht\Fehlerbericht\';
  if not DirectoryExists(sDir)then
    ForceDirectories(sDir);
  //HIER MEINE ENDLOSSCHLEIFE
  if FileExists(sDir+(IntToStr(helpint))+'.'+datestring+'.txt') then
  begin
    while FileExists(sDir+(IntToStr(helpint))+'.'+datestring+'.txt')do
    begin
      Inc(helpint);
      AssignFile(f,sDir+(IntToStr(helpint))+'.'+datestring+'.txt');
      Rewrite(f);
      CloseFile(f);
    end;
  end;

  //WENN KEIN FILE DANN ERSTELLE FILE Z.B.(C:\XML Compare Fehlerbericht\Fehlerbericht\1.03.02.2017.txt)
  if not FileExists(sDir+IntToStr(helpint)+'.'+datestring+'.txt')then
    AssignFile(f,sDir+(IntToStr(helpint))+'.'+datestring+'.txt');
    Rewrite(f);
    CloseFile(f);
end;
Wie macht man das richtig?
Bin total festgefahren und acuh noch ein Anfänger^^

MfG
  Mit Zitat antworten Zitat