Anfängerfrage, TMemo & TStringlist

[marabu]

Hallo,

eine Liste erzeugst du durch den Aufruf des Konstruktors als Klassenmethode:

mylist := TStringList.Create; Nicht MaxLength, sondern Memo.Lines.Count liefert dir die Anzahl an Zeilen im Memo. Diese werden von 0 bis Count - 1 indiziert. Und wenn du deine Liste als lokale Variable deklarierst, dann ist sie nur innerhalb deiner Prozedur erreichbar. Gib sie deshalb am Ende auch wieder frei.

Delphi-Quellcode:

procedure TForm1.Button1(Sender: TObject);
var
  myList : TStringList;
  i : Integer;
begin
  myList := TStringList.Create;
  for i:= 0 to Pred(Memo1.Lines.Count) do 
    mylist.add(Memo1.Lines[i]);
  ShowMessage(myList.Text);
  myList.Free;
end;

Grüße vom marabu