添加.txt

同学通讯录

if edit1.Text =''
        then
        begin
           application.MessageBox('输入姓名','信息',48);
         end
else
begin
table1.Active :=true;
table1.Insert;
table1.Fields[0].AsString :=edit1.Text;
table1.Fields[1].asstring :=edit2.Text;
table1.Fields[2].asstring :=edit3.Text;
table1.Fields[3].asstring :=edit4.Text;
table1.Fields[4].asstring :=edit5.Text;
table1.Fields[5].asstring :=edit6.Text;
table1.Fields[6].asstring :=edit7.Text;
table1.Fields[7].asstring :=edit8.Text;
table1.Fields[8].asstring :=edit9.Text;
table1.Fields[9].asstring :=edit10.Text;
table1.Post;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit6.Text :='';
edit7.Text :='';
edit8.Text :='';
edit9.Text :='';
edit10.Text :='';