unit3.~pas

实现网络消息信史服务的程序

unit Unit3;

interface
procedure LoadMsgText();
var
   MsgText:array[0..30] of string;
implementation

procedure LoadMsgText();
begin
     MsgText[0]:='什么运动？上面的兴奋，下面的痛苦！上面的流汗，下面的流血？……别想歪了！……钓鱼！';
     MsgText[1]:='不许动！抢劫！全部举起手来！男的站左边，女的站右边，变态的站中间，哎！说的就是你，还装着看电脑！';
     MsgText[2]:='一尼姑去医院做B超，粗心的护士将一孕妇的化验单给了她。尼姑看了以后叹了口气说：“这年头，连胡萝卜都靠不住了。”';
     MsgText[3]:='大学食堂内,某男想插对,选一漂亮女生前:同学,我插你前面好吗?女生:前面已经刚插了一个,你就插后面吧!';
     MsgText[4]:='警告：您的电脑因超负荷使用，内部发生烈变，即将爆炸，请看完本提示后立即将电脑丢与空旷无人处...';
     MsgText[5]:='猎人发现一只猪，举起猎枪打死了猪，猎人走近猪，猪却起来了，知道为什麽？猜不到？—猪也正纳闷呢。';
     MsgText[6]:='昨晚我作了个梦，你是主角！梦见你手提菜刀气喘吁吁在追头猪。那头猪却突然跪地求饶说：本是同根生，相煎何太急！';
     MsgText[7]:='手机免费接听秘技：当有电话呼入时在第三次振铃前按54SHM后再按井字键和关机键此时你仍可讲话免费';
     MsgText[8]:='嫖客对妓女说：“万水千山总是情，少给10块行不行。”妓女答：“人间哪有真情在，多赚10块是10块。”';
     MsgText[9]:='喂：起来尿尿了！^-^';
     MsgText[10]:='一女问农场场主“：为什么现在会流行疯牛病”场主说“如果你一天被人抓四次奶，而一年只做一次爱，你会不会疯”！';
     MsgText[11]:='尊敬的电脑用户：您的电脑以染上了极为可怕的病毒，不过在您的电脑爆炸之前可将它放入清水中浸泡十分钟即可杀毒。';
     MsgText[12]:='明日网络扩容,电脑可能无法接入,请您将电脑掷于地上,便可正常上网。如仍不能接入，请反复掷于地上，直至能正常接入为止。';
     MsgText[13]:='你的微笑的样子很甜美,你生气的样子很可爱,你在我眼里最美,你在我心里最好.是不是很感动呀?你这头猪.';
     MsgText[14]:='好老婆标准:书房里是淑女,厨房里是家庭妇女,卧房里是妓女';
     MsgText[15]:='一农夫请兽医给猪配种，兽医说：需要人工配种。农夫围着猪转了一圈说：行是行，我怕它咬我。';
     MsgText[16]:='天气预报:明天白天华北大部有雨,卫星探测会有手机,电脑,美钞等钱物同雨下落,请做好发财准备!!!中央气象台.';
     MsgText[17]:='你长得真够好，印度鼻子，香港脚，走起路来两边摇，就象公猪跳舞蹈。';
     MsgText[18]:='注意:你已发送多次黄色信息,本局向你提出警告!如有再次发现,将予停机处理,敬请用户自律!';
     MsgText[19]:='别以为我不知道！那个屁就是你放的，还想赖！别假装看电脑！好象很无辜的样子。';
     MsgText[20]:='请走到最近的电线杆前面，对着上面的野广告大声说“我的病有救了”';
     MsgText[21]:='你长得很有创意，活着是你的勇气，丑并非你的本意，如果没有了你，谁能衬托出世界的美丽！';
     MsgText[22]:='你帅你帅，头顶一窝白菜，身披一条麻袋，腰缠一根海带，自认为是东方不败，其实是衰神二代！';
     MsgText[23]:='紧急通告：我市精神病院有一病人脱逃，敬请广大市民小心！该病人特征：喜爱坐在电脑旁看信息！口头禅：神经病！';
     MsgText[24]:='男人最最喜欢售票员，她常说：“进去一点，里面还很空”；最害怕小学老师，她常说：“重做一遍，做不好罚一百遍。”';
     MsgText[25]:='一位冒险者在河里洗澡，被树上的猴子看见了，猴子大笑一声，摔了下去。因为猴子在笑：他的尾巴怎么长在前面呀！自便！';
     MsgText[26]:='长的丑不是你的错，但是你不要总是上街吓唬人！';
     MsgText[27]:='送你一份有屎以来，粪量最重的礼物，你一定会大吃一斤，还要多多饱含，如觉粪量不够还请自便！';
     MsgText[28]:='考考你：母鸡生的蛋叫鸡蛋，乌龟生的蛋叫龟蛋，请问笨蛋你是怎么来的？';

end;

end.