每一次循环时加一个
sout:=sout+chr(10)+chr(13);
还有为何这一句
memo1.Lines.Clear;
放在了循环内?更改:
memo1.Lines.Clear;
for ……do
begin
sout:=表达式1
sout:=表达式2
……
memo1.Lines.Add (sout);
sout:='';
end;
其它代码。
sout:=sout+chr(10)+chr(13);
还有为何这一句
memo1.Lines.Clear;
放在了循环内?更改:
memo1.Lines.Clear;
for ……do
begin
sout:=表达式1
sout:=表达式2
……
memo1.Lines.Add (sout);
sout:='';
end;
其它代码。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货