[NEed Help] Delphi Umbennenung

[Relicted]

*hust*

Delphi-Quellcode:

function FormatFileName(nr: integer): string;
var
  dateiname : string;
begin
  Dateiname := 'C:\Logdatei.txt';

  // Dateiname mit Nummer zusammenbauen
  Result := ChangeFileExt(ExtractFileName(dateiname), '')+IntToStr(nr)+ExtractFileExt(dateiname);
end;


procedure LosSicher;
var
  i : integer;
begin
  i := 50;  // Anzahl der Sicherungskopieren
  DeleteFile(FormatFileName(i));  // älteste Datei löschen
  Dec(i);

  while i > 0 do
  begin
    RenameFile(FormatFileName(i), FormatFileName(i + 1));
    Dec(i);
  end;
end;