為什麽按鈕不起作用? |
答題得分者是:jow
|
mp394681143
一般會員 發表:64 回覆:40 積分:20 註冊:2009-10-11 發送簡訊給我 |
|
herbert2
尊榮會員 發表:58 回覆:640 積分:894 註冊:2004-04-16 發送簡訊給我 |
|
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
為什麼要起作用?
你都不清楚你寫的程式嗎? 這樣不行喔! PS.新手的話,請到新手區問,舊手的話,也該加強基本功夫 IF ... THEN 養成習慣,不管幾行,都用 BEGIN END 包起來 ===================引 用 mp394681143 文 章=================== 可以運行,但是提示框不出來? [code delphi] procedure TForm1.Button1Click(Sender: TObject); var day:(mu,tu,cu); begin if day=tu then showmessage('為什麽按鈕不起作用?'); end; [/code] |
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
呵, 原來是這樣...
[code delphi] procedure TForm1.Button2Click(Sender: TObject); var TheEnum1: (a1=0,b1=1,c1=2); TheEnum2: (a2=10,b2=11,c2=12); I: Integer; L: TSTringList; begin L := TStringList.Create; try for I := 0 to 19 do begin case Random(MaxInt) mod 13 of Ord(a1): L.Add('a1'); Ord(b1): L.Add('b1'); Ord(c1): L.Add('c1'); Ord(a2): L.Add('a2'); Ord(b2): L.Add('b2'); Ord(c2): L.Add('c2'); end; end; ShowMessage(L.Text); finally FreeAndNil(L); end; end; [/code] ===================引 用 mp394681143 文 章=================== 可以運行,但是提示框不出來? [code delphi] procedure TForm1.Button1Click(Sender: TObject); var day:(mu,tu,cu); begin if day=tu then showmessage('為什麽按鈕不起作用?'); end; [/code] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |