教大家用Delphi写按钮“添加”的功能

1、第一步：给新建窗体加一个Button,还有一个编辑框Edit之后写代码；

2、第二部，给Button按钮的标题Caption改为“添加”；

3、第三步是代码，“添加”按钮被双击，代码写上：

procedure TForm1.ButtonClick(Sender: TObject);

var

text:TextFile;

s:string;

 i: integer;

begin

  s:=edit1.text;

  AssignFile(text,'e:\test.txt');

  Rewrite(text);

  Writeln(text,s);

  closefile(text);

begin

for i:= 0 to Form1.ComponentCount-1do

begin

 if Form1.Components[i] is TEdit then//如果是Edit控件

 TEdit(Form1.Components[i]).Text:=''//清除其中的内容

end;

end;

end;