你是男的吧? 呵呵...... Var you:string; begin if you='Boy' then you;='变态'; else you:='我最佩服的女人'; end;
Procedure TFOrm1.Error(Sender:TObject) Var Name:String; Begin Name:=zystay (我爱小鸭) If Name.Sex='男' Then MessageBox(Handle,'你去死吧!','Error',MB_OK) Else MessageBox(Handle,'I Love You','Do You Love Me?',MB_OK); End;
Procedure TFOrm1.Error(Sender:TObject) Var Name:String; Begin Name:=zystay (我爱小鸭) If Name.Sex='男' Then MessageBox(Handle,'你去死吧!','Error',MB_OK) Else if Name.Sex='人妖' then MessageBox(Handle,'我晕倒!','Error',MB_OK) Else MessageBox(Handle,'I Love You','Do You Love Me?',MB_OK); End;
楼上的语法错误 type t['男','女','人妖'] type name1=record sex:t; end; var name:name; begin ....... end;
现在的女孩子,真实大胆。
呵呵......
Var
you:string;
begin
if you='Boy' then
you;='变态';
else
you:='我最佩服的女人';
end;
Var
Name:String;
Begin
Name:=zystay (我爱小鸭)
If Name.Sex='男' Then
MessageBox(Handle,'你去死吧!','Error',MB_OK)
Else
MessageBox(Handle,'I Love You','Do You Love Me?',MB_OK);
End;
Var
Name:String;
Begin
Name:=zystay (我爱小鸭)
If Name.Sex='男' Then
MessageBox(Handle,'你去死吧!','Error',MB_OK)
Else if Name.Sex='人妖' then
MessageBox(Handle,'我晕倒!','Error',MB_OK)
Else
MessageBox(Handle,'I Love You','Do You Love Me?',MB_OK);
End;
type t['男','女','人妖']
type name1=record
sex:t;
end;
var name:name;
begin
.......
end;
是一个清纯的男孩我代表CSDN结贴联盟把小王彬推荐给楼主,,也了却我红烧猪头的一念之挂之心!!
[Error]Unite1.pas(28):Undeclared identifier:'YourSex'
try
you.gaowo
except
showmessage('No hole!Check your sex then try again'+#13+'Or you 变态!')
end;
begin
if 楼主=PLMM then
showmessage('我来啦,找我好啦')
else
Raise Exception('恐龙,不要靠近我')
end
else
Raise Exception('基佬')