TMemo难题

Question

我用TMemo.Lines.Add()加了一些信息，现在我想知道TMemo共有几行的信息，并想单独取出每一行的信息，该这么办。谢谢。

Answer 1

Memo.Lines.Count
Memo.Lines.Strings[i]

Answer 2

var
  i, j:integer;
  
begin
  j:=Memo1.Lines.Count;
  for i:=0 to j-1 do
  begin
    showmessage(Memo1.Lines[i])
  end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
begin
   for i:=0 to memo1.Lines.Count do
      begin
         showmessage(memo1.Lines.Strings[i]);
      end;
end;

Answer 4

to Linux2001(我想买手提电脑啊！):有本事做这个！http://expert.csdn.net/Expert/topic/1646/1646015.xml?temp=.7531397