如何实现文本换行

Question

tempstring:='长度＝'+edit1.Text+'   宽度='+edit2.Text+'    高度='+edit3.Text;
我想将生成文档变成
长度＝123
宽度＝123
高度＝123
的形式，但我直接在代码处输入成
tempstring:='长度＝'+edit1.Text+'   
宽度='+edit2.Text+'    
高度='+edit3.Text;
的形式就报错

Answer 1

楼主是想“所见即所得”？呵呵。procedure TForm1.Button4Click(Sender: TObject);
var
  TempString : string;
begin
  tempstring:='长度=' + edit1.Text + #10 + '宽度=' + edit2.Text + #10 + '高度=' + edit3.Text;
  showmessage(TempString);
end;给你加了换行符
如果还不行，就再加  #13（回车符）

Answer 2

我尝试了一下 是tempstring:='长度=' + edit1.Text + #13#10 + '宽度=' + edit2.Text + #13#10 + '高度=' + edit3.Text;
就对了，也感谢你的提示。我那个问题点数是给你加分吗，管理员加吗？我可不可以给你加？怎么加？