String hochzählen

[negaH]

Delphi-Quellcode:

function NextFileName(const FileName: String): String;
var
  I: Integer;
begin
  Result := ExtractFileName(FileName);
  for I := Length(Result) downto 1 do
  begin
    Result[I] := Char(Ord(Result[I]) + 1);
    if Result[I] <= 'Z' then Break;
    Result[I] := 'A';
  end;
  Result := Result + '.DAT';
end;

Nun brauchst du nur noch zu schauen ob die Datei mit dem nächsten logsichen Namen auf dem Server existiert. Das machst du so lange bis dies nicht der Fall ist. Natürlich speicherst du bei dieser Iteration den zuletzt benutzten Dateinamen global ab.

Gruß Hagen