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

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

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

3、第三步是代码，“添加”按钮被双击，代码写上：procedure TForm1.Button觊皱筠桡Click(Sender: TObject);即枢潋雳vartext:TextFile;s:string;i: integer;begin s:=edit1.text; AssignFile(text,'e:\test.txt'); Rewrite(text); Writeln(text,s); closefile(text);beginfor i:= 0 to Form1.ComponentCount-1dobeginif Form1.Components[i] is TEdit then//如果是Edit控件TEdit(Form1.Components[i]).Text:=''//清除其中的内容end;end;end;