天太热了，脱去所有裤衩凉块一下了:)

Question

rt,呵呵。

Answer 1

五星的马甲，楼上的New Bee

Answer 2

var
   裤衩 : Tkucha;
   内裤 : Tneiku;
   上衣 : Tshangyi;
   背心 : Tbeixin;begin  if (气温>30) then 裤衩.free;
  if (气温>35) then 上衣.remove;
  if (气温>40) then 背心.delete;
  if (气温>45) then 内裤.destory;end;

Answer 3

if assigned(FGirlFriend) then begin
  unclothed := True;
  FGirlFriend.unclothed := True;
end;

Answer 4

回复人： zx_ali(阿里) ( ) 信誉：99  2004-06-23 14:35:00  得分: 0  
 
 
   恭喜啊
脱了就见红
  
 
Top  
 
 回复人： lijinghe1(副乡长)(立党为公，执政为民) ( ) 信誉：105  2004-06-23 14:38:00  得分: 0  
 
 
   if assigned(FGirlFriend) then begin
  unclothed := True;
  FGirlFriend.unclothed := True;
end;
  
××××××××××××××××××××××你们两个………………呃…………………………
恭喜楼主

Answer 5

{
if assigned(FGirlFriend) then begin
  unclothed := True;
  FGirlFriend.unclothed := True;
end;
}
\\脱了就见红呵呵，有趣，
恭喜楼主