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;