只相信爱情的人是智者还是笨蛋？请大家发表以下自己的观点

Question

haha 不可思议，不是智者也不是笨蛋，是很有理想主意的人。

Answer 1

兄弟在CSDN论坛上可不可以不发表这种问题吗？

Answer 2

sorry 我本来是发在灌水乐园的：）
你可以有IF语句做个判断呀，和DELPHI是有关系的

Answer 3

boy :=Tboy.Create;
girl:=Tgirl.Create;
boy :=rand(坚信爱情,相信现实);
girl:=rand(坚信爱情,相信现实);
if (boy=坚信爱情) and (girl=坚信爱情) then
     marriage:=Tmarriage.Create
else if (boy<>坚信爱情) and (girl=坚信爱情) then
        begin
        bye:=Tbye.Create;
        girl:=rand(坚信爱情,相信现实);
        end
     else if (boy=坚信爱情) and (girl<>坚信爱情) then
          begin
          bye:=Tbye.Create;
          boy:=rand(坚信爱情,相信现实);
          end
          else if (boy<>坚信爱情) and (girl<>坚信爱情) then
               begin
               bye:=Tbye.Create;
               boy:=rand(坚信爱情,相信现实);
               gril:=rand(坚信爱情,相信现实);
               end;  

Answer 4

type
  TIQ = (智者,笨蛋)
  TIQs = set of TIQ
var
  iq: TIQs;
begin
  iq := [智者,笨蛋];
end;