Freien Dateinamen finden

[N30N]

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