Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: While FileExists endlosschleife

   
    by Jumpy, 3. Feb 2017
  Sinnvoller / Einfacher ist es erst nur den Dateinamen zu ermitteln (Variable benutzen) und dann einmalig zu schreiben also sowas:
  
  
  Filename:=sDir+(IntToStr(helpint))+'.'+datestring+'.txt';
  while FileExists(Filename) do
  begin
  inc(helpint);
  Filename:=sDir+(IntToStr(helpint))+'.'+datestring+'.txt';
  end;
  AssignFile(f,Filename);