Question

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

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

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

Answer 2

s := Memo1.Text;

Answer 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;