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.