Freien Dateinamen finden

[nachti1505]

Delphi-Quellcode:

var bFileFound: boolean;
    i: Integer;
procedure DoIt;
begin
  bFileFound := false;
  i := 0;
  repeat
    inc(i);
    if not FileExists('C:\' + IntToStr(i) + '.txt') then bFileFound := true;
  until bFileFound;

  // nächste freie Dateinummer steht jetzt in i
end;