Hi!
Probier mal, ob das geht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
strlist: Tstringlist;
begin
i:=0;
strlist := TStringList.Create;
Try
StrList.Assign(Synmemo1.Lines);
Synmemo1.Clear;
While i <= pred(StrList.Count) Do
begin
synmemo1.Lines.Add(inttostr(i+1)+' '+Strlist[i]);
i:=i+1;
end;
Finally
FreeAndNil(StrList);
end;
end;
Ich hoffe, dass der Code in Ordnung ist. Habe mich noch nicht so wirklich damit auseinandersetzen können. Falls Fehler drin sind, oder die Vorgehensweise nicht ok ist, sagt Bescheid.
Ciao fkerber
Edit:
a) zu langsam
b) @Robert_G: Ist mein Code in Ordnung, oder nicht empfehlenswert?