[求助]add的问题 - Delphi论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 Delphi论坛』 → [求助]add的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 811 人关注过本帖

标题：[求助]add的问题

只看楼主加入收藏

fnc2006

等　级：新手上路
帖　子：3
专家分：0
注　册：2007-8-19

楼主

问题点数：0 回复次数：3

[求助]add的问题

问大家一个很菜的问题帮我看看我这段代码哪里出了问题老是无限循环·
implementation
uses unit1;
{$R *.dfm}

procedure TForm3.Memo1Change(Sender: TObject);
var haha:string;
begin
haha:='姓名:';
haha:=haha+form1.edit1.text;
haha:=haha+#13+#10;
haha:=haha+'年龄:'+form1.edit2.text+#13+#10;
haha:=haha+'性别:'+form1.combobox3.Text+#13+#10;
haha:=haha+'职务:'+form1.combobox1.Text+#13+#10;
haha:=haha+'电话:'+form1.edit5.text+#13+#10;
haha:=haha+'部门:'+form1.combobox2.Text+#13+#10;
memo1.Lines.add(haha);

end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
end;

end.

我搞了好久不晓得那出问题了才开始学DELPHI 请各位帮下小弟我不胜感激在线等·

搜索更多相关主题的帖子: add　

2007-08-19 13:49

taosh

等　级：新手上路
帖　子：1
专家分：0
注　册：2007-6-26

第 2 楼

得分:0

回复：（fnc2006）[求助]add的问题

添加一个按纽Button3,删掉原来的
procedure TForm3.Memo1Change(Sender: TObject);
var haha:string;
begin
haha:='姓名:';
haha:=haha+form1.edit1.text;
haha:=haha+#13+#10;
haha:=haha+'年龄:'+form1.edit2.text+#13+#10;
haha:=haha+'性别:'+form1.combobox3.Text+#13+#10;
haha:=haha+'职务:'+form1.combobox1.Text+#13+#10;
haha:=haha+'电话:'+form1.edit5.text+#13+#10;
haha:=haha+'部门:'+form1.combobox2.Text+#13+#10;
memo1.Lines.add(haha);

end;
改为

procedure TForm3.Button3Click(Sender: TObject);
var haha:string;
begin
haha:='姓名:';
haha:=haha+form1.edit1.text;
haha:=haha+#13+#10;
haha:=haha+'年龄:'+form1.edit2.text+#13+#10;
haha:=haha+'性别:'+form1.combobox3.Text+#13+#10;
haha:=haha+'职务:'+form1.combobox1.Text+#13+#10;
haha:=haha+'电话:'+form1.edit5.text+#13+#10;
haha:=haha+'部门:'+form1.combobox2.Text+#13+#10;
memo1.Lines.add(haha);

end;

2007-08-19 21:42