找几个随时候命的师傅.

Question

小弟学习delphi有些日子了，有时候遇到问题解决不了的时候，没有办法，于是想找几个人指点下。
这样的话，遇到问题很快的可以得到解决，也不会浪费你太多的时间。看哪位大虾有时间，指点指点。要求1 精神正常
    2 精神不正常也行
    3 脑壳有奇怪想法
    4 没有要求

Answer 1

if 楼猪
   1  精神正常 
    2 精神不正常也行 
    3 脑壳有奇怪想法 
    4 没有要求 
 then
 showmessage('楼猪精神不正常');

Answer 2

if User='看帖的用户' then
begin
  case 楼猪 of
    1:showmessage('精神正常'); 
    2:showmessage('精神不正常也行'); 
    3:showmessage('脑壳有奇怪想法');  
    4:showmessage('没有要求');
  end;
  if (楼猪=1) or (楼猪=2) or (楼猪=3) or (楼猪=4) then
    messagebox(Handle,'楼猪为精神不正常','证明',mb_ok); 
end;O(∩_∩)O哈哈~，纯娱乐！要想学好Delphi还是要多看书、多做练习、多来CSDN！

Answer 3

  if User='看帖的用户' then
begin
  case 楼猪 of
    1:str:='精神正常';
    2:str:='精神不正常也行';
    3:str:='脑壳有奇怪想法';
    4:str:='没有要求';
  end;
  Application.messagebox(str,'证明',mb_ok);
end;