Zitat von
Noteip:
Funktioniert super!!!
Wirklich?
Meiner Meinung nach wird die Original-Extension verändert und eine neue angehängt.
Mit dem folgenden Code sollte das nicht mehr passieren:
Delphi-Quellcode:
function NextFileName(const FileName: String): String;
var
I: Integer;
begin
Result := ChangeFileExt(ExtractFileName(FileName), '');
for I := Length(Result) downto 1 do
begin
Result[I] := Succ(Result[I]);
if Result[I] <= 'Z' then Break;
Result[I] := 'A';
end;
Result := Result + '.DAT';
end;
Gruß Hawkeye