delphi 的 TMemo 控件，其文本内容保存在 Lines 属性中，该属性是 TStrings 类型：
取第一行的内容，参考代码示例如下：
procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage(mmo1.Lines[0]);
end;
运行截图：
提示： Lines 属性的序号从 0 开始，即第1行是 Lines[0]。
Memo用起来感觉不太方便，貌似不能删除某一行，可以把后面的逐个赋值到前面一行，最后一行清零就可以了，用ListBox比较方便，想删哪个，直接删除就可以了，
Labl1.caption:= Trim(Memo1.Lines[0]);
ShowMessage(Memo1.Lines[0]); //显示Memo内第一行的内容。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024