String hochzählen

[negaH]

Ok, hier noch eine Version mit der FileName ein Dateiname mit Extenson und Pfad sein kann.

Delphi-Quellcode:

function NextFileName(const FileName: String): String;
var
  I,J: Integer;
begin
  Result := FileName;
  I := Length(Result);
  J := I;
  while (I > 0) and not (Result[I] in ['\', '/']) do 
  begin
    if Result[I] = '.' then J := I -1;
    Dec(I);
  end;
  for J := J downto I +1 do
  begin
    Result[J] := Succ(Result[J]); 
    if Result[J] <= 'Z' then Break;
    Result[J] := 'A';
  end;
end;

Gruß Hagen