Dateinamen um 1 erhöhen.

[Cuchulainn]

Hallo,

ich habe es jetzt folgendermaßen gelöst. Und zwar will ich einfach mit SaveToFile den Inhalt von Memo1 in eine txt-Datei schreiben. Es geht bestimmt einfacher, aber so funktioniert es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var StrPath: String;
    Search: TSearchRec;
    IntCounter: Integer;
const StrExtension = '.txt';

begin
     StrPath := ExtractFilePath(ParamStr(0)) + 'datei';
     if FindFirst(StrPath + '*' + StrExtension, faAnyfile, Search) <> 0 then
     begin
          // Datei speichern
          Memo1.Lines.SaveToFile(StrPath + StrExtension);
     end
     else
     begin
          IntCounter := 1;
          repeat
                StrPath := ExtractFilePath(ParamStr(0)) + 'datei(' + IntToStr(IntCounter) + ')' + StrExtension;
                Inc(IntCounter);
          until FindNext(Search) <> 0;
          Memo1.Lines.SaveToFile(StrPath);
     end;
     FindClose(Search);
end;