可以運行，但是提示框不出來？
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
day:(mu,tu,cu);
begin
if day=tu then
showmessage('為什麽按鈕不起作用？');
end;
[/code]

procedure TForm1.Button1Click(Sender: TObject);
var
day:(tu,tu then {若 mu,tu,cu 之值未給，如何能比較？}
showmessage('為什麽按鈕不起作用？');
end;

編輯記錄

為什麼要起作用？
你都不清楚你寫的程式嗎？

這樣不行喔！

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]

呵, 原來是這樣...

[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]