Zitat von
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;
Das scheint mir ganz logisch zu sein, danke schonmal. Aber wozu dient das "procedure DoIt;" unter der Variablendeklaration?
Delphi-Quellcode:
var
bFileFound: boolean;
i: Integer;
begin
bFileFound := false;
i := 0;
repeat
inc(i);
if not FileExists('C:\' + IntToStr(i) + '.txt') then bFileFound := true;
until bFileFound;
edit28.Text := inttostr(i);
Ausserdem gibts da noch ein kleines Problem. Ich musste das "procedure DoIt;" aus deinem Code löschen, da ich sonst nur Fehlermeldungen bekam. Wenn ich den Code jetzt ausführe, erscheint im Editfeld jedes Mal die Zahl 1. Die Datei 1.txt gibt´s allerdings schon, genau wie die Datei 2.txt...
//Edit:
Okay, hab ne Kleinigkeit verpennt, jetzt
funktioniert es!
Danke