var
tempstr : tstringlist;
i : integer;
tmp : string;
begin
tempstr := tstringlist.create;
tempstr := memo1.text;
i := tempstr.count-1;
tmp := tempstr.string[i];
tmp := memo1.lines[i];
end;
两种方法，一种直接取某一段字符串，一种全取。用stringlist全取，可以使用savetofile直接保存到文本文件，增加很多常用的操作
s := Memo1.Text;
var
tmp: string;
i: integer;
begin
tmp:='';
for i:=0 to memo1.Lines.Count-1 do
tmp:=tmp+memo1.Lines.Strings[i];
showmessage(Tmp);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024