有个提议：论坛是不是少放些灌水贴，现在都成了灌水乐园了，很多高手都在离去呀！！

Question

非常赞同你的提议
踢上一脚另：想让ihihonline(小小->不要再流浪！！) 叫你大哥另另：你这个贴子算灌水么？？？

Answer 1

非常赞同你的提议
踢上一脚另：想让ihihonline(小小->不要再流浪！！) 叫你大哥另另：你这个贴子算灌水么？？？hehe

Answer 2

TO  ScoutKing(失眠夜) 
不要啊，我要做大哥的，你也一起做我小弟算啦，好不好？

Answer 3

{$Message '这是一个灌水贴！Kill'}
...
try
  try
    ifthen(Conut>100,StringValue :='小小会叫你大哥的','不好意思，小小做大哥啦，呵呵');
  except
    StringValue:='不会吧，编译不通过？';
    uses StrUilts
  end;
finally
  StringValue :='还是给Kill啦';
  ihihonline := dongxsoft's 大哥;
end;

Answer 4

TO  ScoutKing(失眠夜) 
我刚才从ihihonline(小小->不要再流浪！！) 得到一个好办法，就是两分钟顶一下，大哥我是做定了，你也当小弟吧，呵呵

Answer 5

.....
TypInfo
....
type
  TInputFrm = class(TForm)
  ……
  M : dongxsoft(浮云化雨) ;
  N : Tihihonline(小小->不要再流浪！！) ;
  ……
  
procedure TInputFrm.Button1Click(Sender: TObject);
var
  Value : Variant;
begin
  Value := GetPropValue(Components[I],'Sex');
  if Value <> VarNull then
  begin
    Memo1.Lines.Add(Components[I].Name + 'Caption'  + ' = ' + String(Value));
  end else
    Memo1.Lines.Add(Components[I].Name + '谁知道他是谁啊？男 ？ 女' ');   Memo1.Lines.Add(Components[I].Name + '做弟还是做妹？');

Answer 6

{$Message '这是一个呼吁社会的灌水贴！not Kill'}
...
try
  try
    ifthen(Conut>100,StringValue :='小小会叫你大哥的','不好意思，小小一定叫大哥，呵呵');
  except
    StringValue:='不会吧，没编译就通过？';
    uses StrUilts
  end;
finally
//  StringValue :='还是给Kill啦';
    StringValue :='太让小小失望啦';
  dongxsoft := ihihonline's 大哥;
end;

Answer 7

SizeOf(http://www.csdn.net/expert/topic/997/997074.xml?temp=.7432215) = 4;
  SizeOf(dongxsoft(浮云化雨) ) = 2;
  SizeOf(ihihonline(小小-&gt;不要再流浪！！) )= 4;
  SizeOF(Sender)= 4如何？我做大哥吧；

Answer 8

DaysBetween(Now,Now + HourOf(..2..))?
不然要睡大街的啊；

Answer 9

ifthen(Caption = ^+^)^,^,,'Game Over','斑竹，你们受贿赂了？');

Answer 10

没办法，只能透实底了，
ihihonline(小小-&gt;不要再流浪！！) 要走，怎么办呢，
说实在的，我觉得心里很凉，
不想让这个程序员的乐园失去这一份大家聚在一起的快乐，
我是6月份才找到这里（以前上网不方便），一开始只是有问题上来一次，8月才开始待的多了，
在这里学到了很多实际的东西，
我想这也是大多数的人来这里的原因，
现在的论坛好像缺少了一些什么，大家没有感觉么？
别的不用说了，
谁的问题他没给解决赶紧声讨他！！！

Answer 11

Type 
  qdsfy(巴黎娃娃) ...
  ...
  end;
procedure TInputFrm.Button1Click(Sender: TObject);
var
  Value : Variant;
begin
  Value := GetPropValue(Components[I],'Caption');
  if Value <> VarNull then
  begin
    Memo1.Lines.Add(Components[I].Name + 'Caption'  + ' = ' + String(Value));
  end else
    Memo1.Lines.Add('查无此人 ' + sLineBreak + Components[I].Name + 'Caption'  + ' = ' + String(Value) + ^+^)^,^,);年青无罪，灌水有礼

Answer 12

up up up
begin
   shutdown(computer);
   sleep(6000000);
end;
郁闷
underdefine shutdown;