naja das ist bei deinem Code aber auch der Fall
Delphi-Quellcode:
function NextFileName(const FileName: String): String;
var
I: Integer;
Ext,Path: String;
begin
Ext := ExtractFileExt(FileName);
Path := ExtractFilePath(FileName);
Result := ChangeFileExt(ExtractFileName(FileName), '');
for I := Length(Result) downto 1 do
begin
Result[I] := Succ(Result[I]); // gute Idee
if Result[I] <= 'Z' then Break;
Result[I] := 'A';
end;
Result := Path + Result + Ext;
end;
Gruß Hagen