case xxx of
女孩:
begin
Action := caJump;
end;
女骇:
begin
Action := caFaint;
end;
女骸:
begin
Action := caFear;
end;
女害:
begin
Action := caHit;
end;
else
begin
Action := caNone;
end;
end;
我说人都跑哪去了,原来都到这儿来了!
If sex(Delphi女孩)=female then
showmessage('为什么一定要说这个不如那个呢?比如说有人说中国人打篮球没有美国人好从成绩上
看虽然如此,但不能认为每个中国人打篮球都没美国人好吧?一个姚明恐怕就比绝大多数的美国人打得
好!不够严谨!这种说法只能说明普遍现象,但并没有排除特例,不必为此钻牛角尖,可以就此打住.');
else
showmessage('还有什么好说的呢?');