假如没添姓名.txt

来自「同学通讯录」· 文本 代码 · 共 39 行

if edit1.Text =''
        then
        begin
           application.MessageBox('输入姓名','信息',48);
         end
    else   if edit2.Text =''then
         begin
           application.MessageBox('输入电子邮箱','信息',48);
         end
    else   if edit3.Text =''then
         begin
           application.MessageBox('输入生日','信息',48);
         end
    else   if edit4.Text =''then
         begin
           application.MessageBox('输入公司电话','信息',48);
         end
    else   if edit5.Text =''then
         begin
           application.MessageBox('输入QQ号','信息',48);
         end
         else   if edit6.Text =''then
         begin
           application.MessageBox('输入手机号码','信息',48);
         end
         else   if edit7.Text =''then
         begin
           application.MessageBox('输入电话','信息',48);
         end
         else   if edit8.Text =''then
         begin
           application.MessageBox('输入联系地址','信息',48);
         end
         else   if edit9.Text =''then
         begin
           application.MessageBox('输入个人备注','信息',48);
         end
else
begin