Freien Dateinamen finden

[N30N]

Hi,

Ich habe in meinem Verzeichniss Dateien mit dem Namen 1.txt,2.txt etc. liegen. Mit meinem Code versuche ich, einen Dateinamen zu finden, der noch nicht vergeben ist.

Delphi-Quellcode:

var
i : integer;
begin
  for i := 1 to 100 do
    begin
      if fileexists ('c:\' + inttostr(i) + '.txt') then
        edit28.text := ('Freie Zahl wird gesucht')
      else
        edit28.Text := inttostr(i);
    end;

Jetzt hab ich 2 Probleme:

1) Die for Schleife scheint nicht das beste zu sein, ich hätte am liebsten eine Schleife die ins unendliche geht.
2) Komischerweise wird nach der Abfrage im Editfeld immer "100" angezeigt. Normalerweise müsste doch, wenn es eine freie Stelle gibt, die passende Zahl im Editfeld erscheinen. Ich hab bestimmt nen Logikfehler :/


//Edit:

Ahhh, Logikfehler gefunden ^^ Die Schleife wird ja immer wieder durchgelaufen, bis 100. Klar, dass dann 100 im Feld erscheint.