?? 假如沒添姓名.txt
字號(hào):
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號(hào)','信息',48);
end
else if edit6.Text =''then
begin
application.MessageBox('輸入手機(jī)號(hào)碼','信息',48);
end
else if edit7.Text =''then
begin
application.MessageBox('輸入電話','信息',48);
end
else if edit8.Text =''then
begin
application.MessageBox('輸入聯(lián)系地址','信息',48);
end
else if edit9.Text =''then
begin
application.MessageBox('輸入個(gè)人備注','信息',48);
end
else
begin
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -