x := false;\r
for j := 0 to 2 do\r
case List[i][j].Tag of\r
+ Ord(MARU):\r
+ begin\r
+ x := false;\r
+ break;\r
+ end;\r
Ord(PEKE):\r
inc(k);\r
Ord(KARA):\r
y := false;\r
for m := 0 to 2 do\r
with List[i][m] do\r
- begin\r
case Tag of\r
Ord(KARA):\r
begin\r
Ord(PEKE):\r
y := true;\r
end;\r
- end;\r
- if (x = true)and(y = true) then\r
+ if (x = true) and (y = true) then\r
Showmessage('LOSE');\r
end;\r
procedure test(A: Boolean);\r
begin\r
test(true);\r
if x = true then\r
+ begin\r
+ Check;\r
Exit;\r
+ end;\r
end;\r
end;\r
AI;\r