delphi如何把memo中的字符串赋值给变量？

哪位知道帮下忙！没分了就5分！

2024-12-26 12:13:25

推荐回答（3个）

回答1：

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直接保存到文本文件，增加很多常用的操作

回答2：

s := Memo1.Text;

回答3：

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;