3个回答
展开全部
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直接保存到文本文件,增加很多常用的操作
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;
tmp: string;
i: integer;
begin
tmp:='';
for i:=0 to memo1.Lines.Count-1 do
tmp:=tmp+memo1.Lines.Strings[i];
showmessage(Tmp);
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询