Datei nummeriert speichern

[Robert_G]

Erstens:
So sollte es aussehen, wenn man dynamisch Objekte erzeugt und freigibt.

Delphi-Quellcode:

  XXX.Create;
  Try
    ...
  Finally
    FreeAndNil(XXX);
  End;

Das hier dürfte doch reichen, um von allen Zeilen die ersten zwei Stellen abzuschneiden (ungetestet!):

Delphi-Quellcode:

Var
  flStrList                             : TStringList;
  DeinFileName                          : String;
  Zahl                                  : Integer;
  ...
Begin
  ...
  flStrList := TStringList.Create;

  Try
    flStrList.LoadFromFile(DeinFileName);
    Zahl := 0;
    While zahl < pred(flStrList.Count) Do
    Begin
      // ladenP.Position := zahl;
      flStrList[Zahl] := Copy(flStrList[Zahl], 3, Length(flStrList[Zahl]));
      inc(Zahl);
    End;
    Form1.SynMemo1.Lines.Assign(flStrList);
  Finally
    FreeAndNil(flStrList);
  End;

Nachtrag: @lorenz
Ich glaube er hat die Nummern in der Datei und will sie nicht mehr im SynMemo haben.

Edit: schnell hingehackt und voller Bugs -> korrigiert