Datei nummeriert speichern

[Robert_G]

Und damit klappt's auch mit dem Nachbarn:

Delphi-Quellcode:

Var
  flStrList                             : TStringList;
  DeinFileName                          : String;
  Zahl, StartPos                        : Integer;
Begin
  If Not opendialog1.Execute Then Exit;
  DeinFileName := OpenDialog1.FileName;

  flStrList := TStringList.Create;

  Try
    flStrList.LoadFromFile(DeinFileName);
    Zahl := 0;
    While Zahl < pred(flStrList.Count) Do
    Begin
      // ladenP.Position := zahl;
      StartPos := Pos(#32, flStrList[Zahl]);
      inc(StartPOs);
      flStrList[Zahl] := Copy(flStrList[Zahl], StartPos, Length(flStrList[Zahl]));
      inc(Zahl);

    End;
    SynMemo1.Lines.Assign(flStrList);
  Finally
    FreeAndNil(flStrList);
  End;