1樓:匿名使用者
procedure tform1.button1click(sender: tobject);
const
name = 'delphi';
pwd = 'delphi';
begin
if not (nameedit.text=name) thenbegin
showmessage('使用者名稱錯誤');
nameedit.text:='';
nameedit.setfocus;
endelse if not(pwdedit.text=pwd) thenbegin
showmessage('密碼錯誤');
pwdedit.text:='';
pwdedit.setfocus;
endelse
begin
form2.show;
form1.hide;
end;
end;
end.
你那是變數帶初始值的定義方法
要不你把const換成var也行
varname:string='delphi';
pwd:string='delphi';
2樓:黑貓程式設計
你之前有沒有定義變數name和pwd呢?
我測試的時候只要定義了name和pwd就ok了啊!
你自己再看看,程式結構應該沒有問題
163郵箱登陸怎麼登陸,電腦怎麼登陸163郵箱
163郵箱需要先註冊才能登陸。1 先找到163郵箱介面,介面有兩個按鈕,一個是登入,一個是註冊,點註冊按鈕。進入註冊畫面。2 按照註冊畫面填寫內容,按要求設定密碼,建議註冊手機郵箱,方便容易記憶。3 註冊成功後,就可以登入到163郵箱了。4 電子郵箱,現在用的越來越普遍,擁有一個郵箱可以傳遞更多的資...
登陸不顯示上次登陸名
重灌一下系統吧,我的裝了那個卡卡也這樣,怎麼弄都弄不出來。以後用卡卡的時候,清理的時候不要清的太徹底了。清清上網痕跡什麼的就行了。刪除了是不能恢復的 之所以沒有了,是因為你用兔子清理掉了 兔子裡面點清除 使用痕跡 就會把所有上網,表單記錄,儲存的密碼等都刪除掉 如果你想以後儲存你的表單和密碼,你可以...
DNF無法登陸,DNF無法登陸!!!!
垃圾tx是這樣的重新下一道吧,可憐的孩子 別玩了 那麼垃圾還玩 我玩遊戲 新區的話 1小時登不上去 老區3次登不上去 我就放棄那遊戲 我是玩遊戲的 不是被玩的 玩的遊戲還要看你的臉色 去你mb把 和我學習學習 1是你得垃圾檔案多了 2是你的檔案 主要執行檔案破壞掉了 比方 機器突然 重啟引起或者 更...