Question

delphi中我想把memo1的字符赋值给string类型的变量

要求是像从文件读入那样，每次赋值都能把回车符之前的字符赋给string，而不是一行一行的赋值
本人很洁白。大虾详细一点呗

2楼的方法不行啊
赋值之后s保存了所有Memo1的字符

Answer 1

很简单
var
i:integer;
s:string;
begin
for i:=memo1.lines.count-1 do
s:=memo1.lines[i];

end;

Answer 2

这与代码有关，与控件无关
Memo1中的数据不是string，是TStrings的，
你可以转换一下，将每一行数据合并到一个string里面，用#13或#10 隔开来保持样式，原代码基本不变。

Answer 3

路过看到这个问题，帮你回答一下：

var str : string ;

str := Memo1.lines.text ;

就可以了

Answer 4

洁白....我本来不想回答的...好吧....我猜你昨天买的书里有这个答案...