Ordner finden

[Andreas L.]

Zitat von Fussball-Robby:

Wenn wirklich alle Ordner nach der Strunktur Coverxxx aufgebaut sind, wäre es wohl am einfachsten mit einer Schleife und DirectoryExists()

Delphi-Quellcode:

function MaxValue(Pfad: String): String;
var
  i: Integer;
begin
  while DirectoryExists(Pfad + 'Cover' + IntToStr(i)) do
  begin
    Result := Pfad + 'Cover' + IntToStr(i);
    Inc(i);
  end;
end;

Dann muss es allerdings eine fortlaufende Reihe an Zahlen sein, ansonsten kommst du um FindFirst/FindNext wohl nicht rum.

i muss zuvor noch initalisiert werden. I := 1;