TMemo中自动换行问题

Question

astr : string;我在astr中加入了回车符 char(13), 为何 Memo1.text:=astr 时没有换行 ?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := 'fwfwfe'+#13+'fwefgwge';    /  #10 或者#13都可以!
  Memo1.Lines.Text := str;
end;

Answer 2

必须单独写一行:
memo1.lines.add(#10 + #13).
好像是这样的.
我的分析是:
 lines.add只能加入一行记录.而换行的话相当两行了

Answer 3

我知道了,LZ是写成Memo1.Text
如果是这样的话,那就要  
  str := 'gwgewfg'+#13#10+'gwfgewf';
  Memo1.Text := str;如果是Memo1.Lines.Text := str的话就单独一个#13或#10都可以!

Answer 4

一般都是用Lines来进行操作比较好，毕竟Lines是一个标准的TStringList，平时怎么用StringList就怎么用它就OK了。

Answer 5

用add自动换行
Memo1.Lines.Add('pp');

Answer 6

我已经解决了这个问题，不过不知道对你有用没？？？
我的程序是遇到句号就回车换行。
把我的代码给你看：
procedure TTEva.ComboBox1Change(Sender: TObject);
var
m:string;
begin
  with DM.T_Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select T_EVALUATION1 as ta from teacher where T_ID=:a');
    ParamByName('a').Value:=Trim(ComboBox1.Text);
    open;
  end;
   m:=Trim(DM.T_Query1.FieldByName('ta').Value) ;
   Memo1.Text:=stringreplace(m,'。','。'+#13#10,[rfReplaceAll]);
end;