全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1707
推到 Plurk!
推到 Facebook!

不等於是怎樣的?並且該程式有沒有問題??

答題得分者是:pceyes
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-03-02 11:22:51 IP:202.86.xxx.xxx 訂閱
procedure TForm4.Button1Click(Sender: TObject);
begin
if (form4.edit1.Text不等於 '520') and (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else form4.edit1.Text='520'
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='' ;
end;

P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-03-02 13:43:16 IP:61.67.xxx.xxx 未訂閱
1.有點給他三條線, 不等於, 不管是那一種語言, 這是一個非常基本的常識(已經不算知識了哦), 麻煩你用功一點查書, 任何一本(不限Delphi)j都一定會有
2.if (form4.edit1.Text不等於 '520') and (form4.edit1.Text='')
edit1不等於 520 且 edit1 等於 空字串
你覺得這句話有沒有問題, 請你用口語化的方式來唸它就知道了,
這不是 以子之矛攻子之盾?

===================引 用 hi9413 文 章===================
procedure TForm4.Button1Click(Sender: TObject);
begin
if (form4.edit1.Text不等於 '520') and (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else form4.edit1.Text='520'
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='' ;
end;

syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-03-02 16:30:21 IP:61.64.xxx.xxx 訂閱
大豬說有,小豬說什麼
===================引 用 hi9413 文 章===================
procedure TForm4.Button1Click(Sender: TObject);
begin
if (form4.edit1.Text不等於 '520') and (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else form4.edit1.Text='520'
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='' ;
end;

pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-03-02 16:43:39 IP:220.141.xxx.xxx 訂閱
大豬說有,小小笨豬說???
啊! 有人說你不用功啦!

procedure TForm4.Button1Click(Sender: TObject);
begin
// 如果 (edit1.text 不等於 520)或(edit1.text 等於 '')
if (form4.edit1.Text <> '520') or (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else form4.edit1.Text='520'
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='' ;
end;
------
努力會更接近成功
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-03-03 21:04:56 IP:125.31.xxx.xxx 訂閱
還是不行!!
if (form4.edit1.Text<>'520') or (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else form4.edit1.Text='520' \\這里有問題!!
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='';
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-03-03 21:29:42 IP:220.141.xxx.xxx 訂閱
else
begin
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='';

if form4.edit1.Text='520' \\這里有問題!!
then
if form3.ShowModal=mrok then
close;
form4.edit1.Text:='';
------
努力會更接近成功
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2008-03-03 21:43:59 IP:125.31.xxx.xxx 訂閱
還是不行!!
輸入密碼後按確定後~~
if (form4.edit1.Text<>'520') or (form4.edit1.Text='')
then showmessage('密碼不正確!!')
else if form4.edit1.Text='520'
then
if form3.ShowModal=mrok then //這里有問題!!
close;
form4.edit1.Text:='';
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#8 引用回覆 回覆 發表時間:2008-03-03 22:25:48 IP:202.86.xxx.xxx 訂閱
真的十分感謝!!!!!!!!!!!
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#9 引用回覆 回覆 發表時間:2008-03-03 22:29:10 IP:202.86.xxx.xxx 訂閱
對不起!!人家真的是新手嘛!!!我會繼續加油的!!!!
===================引 用 P.D. 文 章===================
1.有點給他三條線, 不等於, 不管是那一種語言, 這是一個非常基本的常識(已經不算知識了哦), 麻煩你用功一點查書, 任何一本(不限Delphi)j都一定會有
2.if (form4.edit1.Text不等於 '520') and (form4.edit1.Text='')
edit1不等於 520 且 edit1 等於 空字串
你覺得這句話有沒有問題, 請你用口語化的方式來唸它就知道了,
這不是 以子之矛攻子之盾?

系統時間:2024-05-06 14:08:04
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!