摘要： 兔子月薪5千，打算用20万建一个窝。 狼不允许，说私自建就是违章建筑，只允许向王八买。 王八是搞房地产的，先用20万贿赂狼取得开发权，再用50万元向狼买这块地，投资10万元把兔子窝盖好，向兔子要价200万元。 兔子拿不出这么多钱于是向狐狸借200万元，连本带利300万，20年还清， 兔子全家二十年给狐狸打工。 狼、狐狸、王八都挣了钱，只有兔子亏，连孩子也不敢生了。 兔子越来越少，狼觉得这样下去大家没肉吃，于是调控。 狼显得非常重视兔窝价格太贵的问题，研究部署了遏制兔窝价格过快上涨的政策措施。最后认定兔窝价格卖得太高的原因是因为有的兔子买了兔窝后自己不住而进行倒卖所致。 于是狼规... 阅读全文

摘要： 医院院长电脑坏了，拿到一个大修理店去修。修理店接待人员:“交钱，开机费50元”医院院长: “为什么还没修理就要先交费”？修理店接待人员: “我们修理店的制度就是这样，你们医院的挂号费，不是没看病之前就要交吗”？医院院长无话可说，只好交了50元。修理店接待人员问：“你好，请问你的电脑出了什么问题？”医院院长:“就是没有反应了，声音图像都没了。” 修理店接待人员:“看来你的电脑是内部出了问题，那你要看内科，再请问你要看工程师还是高级工程师，修理费是工程师加收20元，高级工程师要加收30元。” 医院院长:“不就是修电脑吗？修好就可以了，我管他什么工程师还是高级工程师”？修理店接待人员:“不一样的，高 阅读全文

摘要： function CenterStr(Src: string; Before, After: string): string;var Pos1, Pos2: WORD;begin Pos1 := Pos(Before, Src); Pos2 := Pos(After, Src); if (Pos1 = 0) or (Pos2 = 0) then //如果src中没有B串和A串 begin Result := ''; Exit; end; Pos1 := Pos1 + Length(Before); //句1.B串起始位+B串的长度 if Pos2 - Pos1 = 0 then 阅读全文

摘要： 方法一、利用 WinInet 单元中的函数：uses WinInet; function GetWebPage(const Url: string):string; var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DWord; dwFileSize:DWord; dwBytesRead:DWord; Contents:PChar; begin Session:=InternetOpen(’’,0,niL,niL,0); HttpFile:=... 阅读全文

摘要： 1.流泪的时候不做任何决定2.不反复思考同一个问题3.不害怕做错什么4.有负面情绪是正常的5.一切的烦恼都是自找的6.说过的话一定要做到7.不要去害怕做一件事8.无论是对是错，你需要一个准则9.不要把心底的话全掏出来10.沉默有无限种含义 阅读全文