memo的问题

Question

高手指点，我用连续的几条memo1.lines.add('');加载字符串信息，但加载完后每一条语句加载的内容都单独占一行，我不想让他们自动换行，我想让每一行字符串达到一定的长度后再换行，如何实现？？？

Answer 1

设置memo的wordwrap为true
form1.Memo1.Text:=form1.Memo1.Text+form1.Edit1.Text;

Answer 2

给你个函数用用
  private
    { Private declarations }
    procedure myMemoAddText(mb : boolean; strAdd : string);......procedure TForm1.myMemoAddText(mb : boolean; strAdd : string);
var
  str : string;
begin
  str := Memo1.Lines[Memo1.Lines.Count-1];
  if not mb then
    Memo1.Lines[Memo1.Lines.Count-1] := str + strAdd
  else
    Memo1.Lines.Add(strAdd);
end;......procedure TForm1.Button1Click(Sender: TObject);
begin
  myMemoAddText(False, 'add string'); //不换行
  myMemoAddText(True, 'add string'); //换行
end;

Answer 3

设置变量，保存变量的每一个增加的值。
对每一次提交的结果进行更新MEMO
就OK了

Answer 4

设置memo1的wordwrap为true
for i:=0 to ..do
  str := str +...
Memo1.Lines.Add(str)；
不要循环加入

Answer 5

好象也只有上面的方法了，将memo的width设置成你希望的每一行的长度，在就如楼上所述，自动换行wordwrap设置为true，memo1.text:=str1+str2+str3+……；其中str：string；

Answer 6

设置memo的wordwrap为true
form1.Memo1.Text:=form1.Memo1.Text+form1.Edit1.Text;

Answer 7

things的方法可以消除
“form1.Memo1.Text:=form1.Memo1.Text+form1.Edit1.Text;”之类方法的闪烁感和系统资源的损耗，好，推荐使用。