5,930
社区成员
发帖
与我相关
我的任务
分享TMemo难题
我用TMemo.Lines.Add()加了一些信息，现在我想知道TMemo共有几行的信息，并想单独取出每一行的信息，该这么办。谢谢。
...全文
请发表友善的回复…
发表回复
xjb2001 2003-04-18
- 打赏
- 举报
对呀
简单啦
以后不要用‘难题’2字唬人
简单啦
以后不要用‘难题’2字唬人
yxknet 2003-04-18
- 打赏
- 举报
to Linux2001(我想买手提电脑啊！):有本事做这个！
http://expert.csdn.net/Expert/topic/1646/1646015.xml?temp=.7531397
http://expert.csdn.net/Expert/topic/1646/1646015.xml?temp=.7531397
yxknet 2003-04-18
- 打赏
- 举报
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;
var
i:integer;
begin
for i:=0 to memo1.Lines.Count do
begin
showmessage(memo1.Lines.Strings[i]);
end;
end;
ffwin 2003-04-18
- 打赏
- 举报
:)
easyboot 2003-04-18
- 打赏
- 举报
楼上两位都说完了。
Linux2001 2003-04-18
- 打赏
- 举报
这个不是难题，老大，请重新出题我再来做
YAMABACK 2003-04-18
- 打赏
- 举报
var
i, j:integer;
begin
j:=Memo1.Lines.Count;
for i:=0 to j-1 do
begin
showmessage(Memo1.Lines[i])
end;
i, j:integer;
begin
j:=Memo1.Lines.Count;
for i:=0 to j-1 do
begin
showmessage(Memo1.Lines[i])
end;
yangbin 2003-04-18
- 打赏
- 举报
Memo.Lines.Count
Memo.Lines.Strings[i]
Memo.Lines.Strings[i]
