📄 假如没添姓名.txt
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -