Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Anfängerfrage, TMemo & TStringlist

  Alt 26. Jan 2007, 19:03
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
  Mit Zitat antworten Zitat