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