Grafik speichern und +1 benennen!?

[DeddyH]

Ich hätte auch noch einen Vorschlag:

Delphi-Quellcode:

function GetNextFreeFileName(const FileName: string;
                             const sFormat: string = '%.3d'): string;
var i: integer;
    sPath, sExt: string;
begin
  sPath := IncludeTrailingBackslash(ExtractFilePath(FileName));
  sExt := ExtractFileExt(FileName);
  i := 0;
  repeat
    inc(i);
    Result := sPath + Format(sFormat,[i]) + sExt;
  until not FileExists(Result);
end;

Aufrufen lässt sich das z.B. so:ShowMessage(GetNextFreeFileName('C:\001.txt'));