?? unit3.pas
字號:
unit Unit3;
interface
procedure LoadMsgText();
var
MsgText:array[0..28] of string;
implementation
procedure LoadMsgText();
begin
MsgText[0]:='什么運動?上面的興奮,下面的痛苦!上面的流汗,下面的流血?……別想歪了!……釣魚!';
MsgText[1]:='不許動!搶劫!全部舉起手來!男的站左邊,女的站右邊,變態的站中間,哎!說的就是你,還裝著看電腦!';
MsgText[2]:='一尼姑去醫院做B超,粗心的護士將一孕婦的化驗單給了她。尼姑看了以后嘆了口氣說:“這年頭,連胡蘿卜都靠不住了?!?#039;;
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]:='男人最最喜歡售票員,她常說:“進去一點,里面還很空”;最害怕小學老師,她常說:“重做一遍,做不好罰一百遍?!?#039;;
MsgText[25]:='一位冒險者在河里洗澡,被樹上的猴子看見了,猴子大笑一聲,摔了下去。因為猴子在笑:他的尾巴怎么長在前面呀!自便!';
MsgText[26]:='長的丑不是你的錯,但是你不要總是上街嚇唬人!';
MsgText[27]:='送你一份有屎以來,糞量最重的禮物,你一定會大吃一斤,還要多多飽含,如覺糞量不夠還請自便!';
MsgText[28]:='考考你:母雞生的蛋叫雞蛋,烏龜生的蛋叫龜蛋,請問笨蛋你是怎么來的?';
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -