No Money No Honey

免費的軟體越來越多，越來越專業，一點都不輸專業軟體，讚～～～ http://briian.com/?p=5527

這篇文章是說開發程式的工程師，有一種是完全不受拘束，能力很強，即使燃燒自己也要達成任務，大概只有拼命三郎可以形容吧.............. 但是這種人往往都是個人式英雄主義，分析： 雖然很厲害，很短的時間內完成任務，但是內容是大家很難理解，不易維護，這樣究竟是好是壞？各位看官就得自行評估了............ 現實生活中也是一樣，同一件事再團體跟個體的情形下，還是有區別的，是吧？ http://www.ithome.com.tw/itadm/article.php?c=50988

大哥哥手賤，測試了大陸綠色版軟體，馬X~~強迫在IE安裝百度 Toolbar..........移除還要連到對方網站安裝ActiveX才能移除，傻過一次再傻第二次........就是白痴...........天曉得還會有啥木馬植入電腦裡............ 找了很多移除方式，使用下面移除方式最簡單，安裝完魔法兔子後，請先重開機進入安全模式(重開機bios剛跳完畫面一直按F8直到系統畫面出現一堆選項)，在照下面方式執行，即可簡單移除百度了。 題外話，大哥哥的小紅傘防毒軟體認定魔法兔子是木馬，不過這套是很知名的軟體，沒聽說有啥惡意的情形發生，總比百度這種流氓軟體好^^ 參考網頁：http://bbs-mychat.com/read.php?tid=671979 超級魔法兔子的載點
http://ftp.isu.edu.tw/pub/Windows/softking/soft/sale/superrsoft/Super_Rabbit_Magic_Set.exe
安裝之後..選取"超級兔子優化王"..
然後再選"專業移除"..
然後在那些軟體裡面(百度搜索...百度搜霸應該在最下面)..找尋百度搜霸.百度搜索
如果他顯示"已安裝"..那就點他一下..按下一步..就可以移除了..
到[控制台]=>[新增或移除]=>找到"百度"這程式(他是一個亂碼字體的程式)
將它移除,會出現一個簡體字網頁視窗,還會問你為何要卸載..隨便點選一個後按"卸載"進行刪除動作,結束後,重新開機,再用你的掃毒軟體掃看看病毒是否不見 結論：下次測試軟體絕不在本機測試，開個虛擬機器測試就好= =

叮噹？！不是小叮噹唱的歌喔，是個大叮噹唱的，還是母的喔~~~大哥哥最近在聽這兩首歌，還不錯聽^^"   叮噹 猜不透 叮噹 可不可以 MV

大叔忍了很久，今天利用下班時間直奔大潤發忠孝店，想剪掉超難整理的頭髮(又開始自然卷了)，投了100元買了張票，看了一下，上次幫我剪髮很俐落的黑妞不見了......... 店內剩下的都是年輕人，哇～～客滿耶，不景氣下，果然還是要薄利多銷..........看了左邊，感覺很生疏，不太會剪，但是100元還要求啥？只要剪得乾淨整齊就好，結果，還沒看完，剛好有個人結束了，換我上去剪髮，哇靠～～～辣妹，大家都以為大哥哥賺到了，但是大哥哥可不這麼想，因為技術通常都跟長相成反比，再來給辣妹剪大哥哥反而會渾身不自在，還是上次的黑妞好，大哥哥自在得很............... 大哥哥用眼睛掃描了這名辣妹一下(非情色眼光喔)，頭髮學生頭短髮，約耳下幾公分，有點像米粉燙的捲髮，配上紫色挑染，短熱褲配上黑絲襪穿到大腿的那種，還帶雷絲邊，性感的勒，皮膚雖然不白，但是整體來說還不錯看喔，感覺還不到20歲吧，就想到對面衣群小朋友常常在聊天都會用台語說：青春的肉體.........我想這就是青春的肉體吧(神遊了)........... 上座後，辣妹問大哥哥，想剪怎樣？大哥哥只說，修旁邊，後面，不要往上推，大哥哥一直看電視，都沒看辣妹怎麼剪，只是他應該很時髦，連手都有裝指甲，還劃成黑色的(大哥哥都說這是中毒後的反應)，感覺手腳也滿俐落的，不過還是上次的黑妞比較俐落，剪著剪著辣妹忽然問大哥哥，幫你把上面打薄喔，大哥哥看著電視劇回答說好，約5～10分鐘吧，辣妹拿鏡子讓大哥哥看後面，大哥哥其實沒再看，只是點點頭，清完後就去買晚餐然後直接回家幫忙了，利用空檔時間，看了一下，剪得還不錯，雖然兩邊鬢角有些不對稱，但是100元能有這樣的成果，算不錯了～～可以說是便宜又大碗喔^^ 本想拍張照片PO到網路上給大家看，搞不好會上電視呢，哈哈，斗大的標題，100元辣妹快速剪髮在新竹，為新竹帶來觀光產業的發達也是不錯的拉～～～

突然想監控公司的server，讓系統發現server的服務或連線斷線，可作紀錄與email通知。找了一下找到了這套軟體：Mortens HostAlive，實際測試的結果，效果不錯喔。 官方網站：http://www.hostalive.net/hostalive.html#download 以下擷取大陸網站教學：http://server.e800.com.cn/articles/2007/19/1168280085509199545_1.html 小工具辦大事——服務器網絡巧監測 2007-01-09 推薦:18322564    收藏:11855681    評論:0     來源:IT168 【IT168 專稿】今天筆者為各位IT168的讀者介紹一個軟件，是Mortens HostAlive。通過這個軟件我們可以監測網絡中計算機是否在線，網絡連接是否正常，另外還可以對每個計算機（當然其中也包括服務器）對外開啟的服務端口進行檢測，當出現計算機與網絡連接失敗或者某個服務端口崩潰的時候，Mortens HostAlive會在第一時間通知網絡管理員，當然通知的手段有通過網絡，通過EMAIL以及通過短信等多種方法。 一、Mortens HostAlive概況 Mortens HostAlive是一個免費的網管工具，它採取多線程PING的方式來檢測網絡，用它可以輕鬆地檢查TCP/IP網絡內計算機的在線狀態。另外還可以按照用戶指定的間隔監測主機。對檢測結果還可以自動導出HTML網頁或CSV文本格式的報表，最終通過電子郵件發送或在屏幕上顯示信息亦或播放聲音來提醒網絡管理員。對於服務器的監測歷史可以通過多種圖表方式來查看，幫助我們進行狀態分析。 點擊下載：下載

---

二、安裝Mortens HostAlive 安裝Mortens HostAlive的方法很簡單，我們只需要在公司網絡中任何一台連接網絡的計算機上安裝即可。 第一步：下載Mortens HostAlive，打開下載文件夾會看到只有一個名為setup.exe的程序，這個就是安裝程序。（如圖1） 圖1 第二步：雙擊該安裝程序，選擇「I AGREE」同意安裝協議。（如圖2） 圖2 第三步：在接下來的安裝組件選擇界面中，有三個組件提供給我們。一般我們保持默認的全選即可。這樣Mortens HostAlive才能更好的為我們服務。當然如果你的計算機上已經安裝有visual basic 6的文件鏈接庫的話可以取消第二個選項。（如圖3） 圖3 第四步：然後選擇Mortens HostAlive的安裝目錄，默認是在c:\program files\Mortens HostAlive下。通過browse按鈕可以更改安裝路徑。Mortens HostAlive總共只會佔用磁盤容量的4.6MB。（如圖4） 圖4 第五步：軟件自動解壓縮並將必要文件複製到本地硬盤的相應目錄，安裝過程中會向系統的system32目錄複製一些DLL動態鏈接庫文件。（如圖5） 圖5 第六步：安裝完成會出現completed提示。（如圖6） 圖6 第七步：我們點「是」按鈕自動啟動Mortens HostAlive主程序。（如圖7） 圖7

---

  三、使用Mortens HostAlive完成DNS功能 啟動Mortens HostAlive後會出現一個「no startup configuration file found」的提示，這是因為我們第一次運行該程序沒有任何配置文件可以加載，我們只需點「確定」按鈕進行手工設置即可。（如圖8） 圖8 那麼如何通過Mortens HostAlive對網絡中的IP地址和域名進行解析呢？方法很簡單： 第一步：啟動Mortens HostAlive主界面。（如圖9） 圖9 第二步：與此同時我們還會在計算機的任務欄中看到Mortens HostAlive的小圖標。（如圖10） 圖10 第三步：在主界面的下方你會看到一個名為quickping/ident single address的選項，在其下方輸入文本處輸入一個域名，例如筆者輸入www.ftedu.gov.cn這個內部服務器對應的域名。（如圖11） 圖11 第四步：然後點右下角的quick ident按鈕進行快速解析，我們會看到www.ftedu.gov.cn已經被正確解析為10.82.0.1了。這說明我們可以通過Mortens HostAlive完成從域名到IP地址的解析工作，這樣對於那些不太瞭解nslookup用法的網絡管理員來說無疑是一個福音。（如圖12） 圖12 第五步：當然Mortens HostAlive還可以完成從IP地址到域名的DNS反向解析工作。我們只需要在剛才的文本輸入處輸入IP地址，例如10.82.0.1，然後將下面的given host address is an ip address前打上對勾，再點quickident按鈕就可以完成反向解析工作了。我們會看到10.82.0.1已經被解析為www.ftedu.gov.cn了。（如圖13） 圖13 該工具的DNS正向和反向解析功能可以讓那些對NSLOOKUP命令不瞭解或者希望通過圖形化界面完成該操作的用戶帶來了便利。

---

  四、通過Mortens HostAlive監測網絡 Mortens HostAlive有一個最大的特點，那就是通過他可以檢測網絡中的所有計算機和服務器，都有誰在什麼時候斷開了與網絡的連接，這樣發現斷網現象後就可以馬上解決了。不過在掃瞄前我們需要手工添加這些IP地址。 第一步：在主界面上點菜單中的HOST，然後選擇ADD NEW添加一個新的HOST主機。 第二步：在define new host窗口的IP ADDRESS處輸入你要檢測主機的IP地址，在HOST BELONGS TO GROUP處輸入你希望把該主機添加到哪個組中，我們可以自定義的進行分組。例如把普通員工計算機分到一組，把服務器分到另一組。然後還需要為該計算機起一個名字，並且為了方便記憶還可以在下方的標記處輸入一個對該HOST的介紹。（如圖14） 14 第三步：按照上面的步驟添加多個HOST，當然將不同的HOST添加到不同的群組中是沒有任何問題的，相應的更有效率的管理我們的網絡客戶機。（如圖15） 圖15 第四步：添加完畢後在軟件主界面中就會看到一個又一個的HOST了，不過默認情況下軟件採取ping法檢測網絡是否連通的間隔是15分鐘，時間比較長我們需要對其進行修改。方法是點菜單中的option，然後選擇ping setup標籤，將ping time interval設置為我們需要的時間，例如筆者設置為30秒。（如圖16） 圖16 第五步：在主界面中選中相應的HOST，點鼠標右鍵然後選擇enable "include host in mesaging"，這樣軟件將每隔30秒檢測相應的客戶機是否在線。（如圖17） 圖17 第六步：另外在options選項中我們還可以通過portscan標籤檢測每個客戶機的某個端口是否正常。（如圖18） 圖18 通過此功能我們就可以在假期對服務器進行間隔檢測了，每隔一段時間都會採取ping法檢測服務器是否在線。不過這就需要我們網絡管理員在家隨時查詢Mortens HostAlive上的顯示信息，那麼能否讓Mortens HostAlive自動檢測，當發現不在線時及時通告給網絡管理員呢？下面就為大家介紹Mortens HostAlive的其他附加功能。

---

  五、Mortens HostAlive的其他功能 要想實現離線的及時通知功能就要開啟Mortens HostAlive的日誌記錄。我們可以在options選項中的file logging處進行設置，只需要把enable file-logging前的勾打上即可，然後就可以設置要將Mortens HostAlive監測的信息以什麼形式的文件保存，並且保存到哪個文件了。（如圖19） 圖19 另外在options中的email report標籤可以設置出現問題時發送記錄文件和記錄信息到哪個電子郵箱。這樣我們網絡管理員通過EMAIL和某些郵箱提供的新郵件到來短信通知的功能就可以實現當網絡出問題，服務器離線或某個服務出故障時自動發送短信通知遠在家中的網絡管理員了。（如圖20） 圖20

---

  六、對客戶端的端口掃瞄 可能有的讀者會問了如果服務器拒絕PING了怎麼辦呢？為了安全起見一般服務器都會拒絕PING服務。那麼我們可以使用Mortens HostAlive對端口進行掃瞄。這種情況應用更為廣泛，因為很多情況例如提供www服務的服務器也許沒有斷開網絡，但是IIS死掉了，這時80端口就不正常了。通過Mortens HostAlive檢測80端口就會顯示出相應的故障。 要想對某個HOST進行端口掃瞄只需要在添加該HOST的時候選擇observation type，在該標籤下我們可以設置要對該HOST的哪個端口進行掃瞄，例如筆者服務器開啟了21和80端口分別提供HTTP和FTP服務，我們對這兩個端口進行掃瞄。（如圖21） 圖21 設置完畢後我們在主界面中就會看到server群中的HOST 10.91.30.1的alive ports處顯示出了80和21兩個端口。（如圖22） 圖22 點擊看大圖

---

  七、保存配置 當我們將公司網絡中的HOST一一添加完畢後是需要對配置信息進行保存的，否則下次啟動Mortens HostAlive後還需要重新設置。方法是點菜單中的file->save configuration。（如圖23） 圖23 點擊看大圖 八、瀏覽日誌 在某一個HOST上點鼠標右鍵選擇VIEW HISTORY ON SELECTED HOST後我們可以查看該HOST對應的日誌以及相應的圖形化記錄信息。（如圖24）該圖表是根據指定的狀況發生時（短線／連線／變動）顯示出來的圖表，客觀上記錄的是每隔一段時間的網絡連接速度。（如圖25） 圖25 總結： 當然上面介紹的Mortens HostAlive小工具只是幫助網絡管理員維護網絡的一個手段，並不是說有了他你就可以高枕無憂，完全置服務器與網絡的漏洞於不顧了。服務器和網絡設備的安全是非常重要的，在使用Mortens HostAlive小工具的同時我們還要結合對設備進行提前檢查，防患於未然，對系統和軟件補丁進行及時升級，頻繁更新病毒庫等多種手段相結合。只有在硬件檢查，軟件維護，數據保護，遠程維護等多個方面都做到位了，公司的服務器和網絡才能不受攻擊。

擋我交女友 黑狗咬車墊報復 更新日期:2008/09/16 07:20 記者黃瑞典／新竹報導 當黑狗「來福」遇見母狗「嘟弟」，結果竟是主人的車子遭殃？高雄市調處苓雅站副主任李歙明家中的機車座墊接連被破壞，一度懷疑因工作引來報復，經查監錄設備後，元凶竟是鄰居黑狗「來福」，原來福常纏著李家的母狗「嘟弟」，他屢次驅趕，沒想到竟咬壞他的機車座墊出氣。 李歙明住竹市仁愛街巷內，一個月前停在宅前的機車座墊被戳兩個大洞，用膠布補起，隔天又出現幾個破洞，好像被利器刻意戳刺，連泡棉都被扯出，巷內十幾輛機車都沒事，唯獨他的被破壞，他係遭有心人刻意報復，也他很擔心家人的安危，但他實在想不起有得罪過誰?決定自力救濟裝監錄設備。 隔天上午一看，他的機車旁又是滿地泡棉，布套被扯落，座墊又出現一個大洞，調閱監視畫面後，發現當天凌晨1時27分，一個黑影在他機車周邊晃動，仔細一看是鄰居的黑狗「來福」。 來福張口即扯掉布套，對著座墊又扯、又咬，累了還在他家門前稍做休息，再接著咬，足足破壞五分多鐘。李歙明形容，「來福好像對我的機車恨之入骨」，羅姓鄰居也說，曾看過這隻黑狗猛咬李歙明機車座墊。 李歙明說，來福喜歡他家母狗，每次遛狗時，來福一見嘟弟即來糾纏，他驅趕過幾次，看得出來福被趕時「很不爽」，沒想到竟會咬壞機車座墊「報復」。

大哥哥最近在學DELPHI語言，雖然學的是 DELPHI 7 ，但是基本語法都是 Pascal 語言，所以版本上基本的語言是一樣的。 下面這本書已經絕版，書局跟出版商都買不到了，有幸在網路拍賣買到這本絕版書，只花了250，且書九成新喔，才看第一章，就覺得這本書買得很值得，不過還真厚..............有需要學習delphi 的，這本書絕對是好物！！！ Delphi 6 object Pascal完美經典

作　　者：江義華
出版社：金禾資訊
ISBN：9572011987
出版日：2002.07.10
分　　級：普級
語　　言：中文
規　　格：中文平裝
定　　價：680元
網路特價：680元(回饋6點)
網路紅利價：99折!670元
到店取貨運費：0 元(其他方式)

大哥哥啥時候可以週休三日??   法國中小學改周休三日 更新日期:2008/09/03 18:35 法國中小學從這個學期起周休三日，每個星期只要上星期一、二、四、五等四天課就好了。家長、老師叫好，專家搖頭。 以往法國中小學，一個星期上課四天半，因為星期六要上半天。很多法國人覺得這半天課壞了大事。星期六爸爸媽媽都放假，還得早起送孩子上學。要是一家想去度個假，還得等孩子中午放學再去。很多離了婚的父母，想趁週末跟孩子團聚，也因為這半天的課，少了半天的親子時間。 法國總統「薩柯吉」競選的時候就以中小學周休三日為訴求。他當選以後，決定從這個學年起實施。幼兒教育專家說，孩子的生活、學習都有個韻律在。上兩天，休一天，再上兩天，再休一天，壞了孩子的韻律，對學習有相當不良的影響。

出處：http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=30495 Delphi Function 中文說明函式及簡要範例
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
======================================================================
數學函數 (Arithmetic Routines)
Unit: System
======================================================================
Abs        傳回參數的絕對值。        function Abs(X);
ArcTan    傳回正切函數的反函數值。    function ArcTan(X: Real): Real;
Cos        傳回餘弦函數值        function Cos(X: Real): Real;
        (X 以弧度為單位)。
Exp        傳回自然指數值。        function Cos(X: Real): Real;
Frac    傳回參數的小數部份。        function Frac(X: Real): Real;
Int        傳回參數的整數部份。        function Int(X: Real): Real;
Ln        傳回自然對數值。        function Ln(X: Real): Real;
Pi        傳回圓周率π的值。        function Pi: Real;
Sin        傳回正弦函數值。        function Sin(X: Real): Real;
Sqr        傳回參數的平方。        function Sqr(X: Real): (Real);
Sqrt    傳回參數的平方根。        function Sqrt(X: Real): Real;
===========================================================================
控制台函數 (Console Routines)
===========================================================================
Unit: WinCrt
函數名稱 函數說明 函數語法
===========================================================================
AssignCrt 將文字檔連結到一個控制台視窗。    procedure AssignCrt(var f: Text);
ClrEol    清附游標位置到該行最後的所有字元。procedure ClrEol;
ClrScr    清附螢幕並重置游標至左上角。    procedure ClrScr;
CursorTo 移動游標至給定座標。        procedure CursorTo(X, Y:Integer);
DoneWinCrt 結束控制台視窗。        procedure DoneWinCrt;
GotoXY    移動游標至給定座標。        procedure GotoXY(X, Y: Byte);
InitWinCrt 建立控制台視窗。        procedure InitWinCrt;
KeyPressed 判斷是否有一按鍵。        function KeyPressed:Boolean;
ReadBuf    從控制台視窗讀入一行。
function ReadBuf(Buffer: Pchar;Count: Word):
ReadKey 讀取按鍵字元。        function ReadKey: Char;
ScrollTo 捲動控制台視窗至顯示位置。    procedure ScrollTo(X, Y: Integer);
TrackCursor 捲動控制台視窗宜到游標可見。procedure TrackCursor;
WhereX 傳回游標的X 座標。        function WhereX: Byte;
WhereY 傳回游標的Y 標標。        function WhereY: Byte;
WriteBuf 寫入一區塊字元到控制台視窗。 procedure WriteBuf
WriteChar 寫一個字元到控制台視窗。    procedure WriteChar(CH: Char);
=================================================
日期與時間函數 (Date and Time Routines)
Unit: SysUtils
========================================
Date 傳回今天日期。function Date: TDateTime;
DateTimeToStr 將時間格式轉為字串。function DateTimeToStr(DateTime: TDateTime):String;
DateTimeToString 將時間格式轉為字串。
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime);
DateToStr 將日期格式轉為字串。function DateToStr(Date: TDateTime): String;
DayOfWeek 傳回今天星期幾。function DayOfWeek(Date: TDateTime): Integer;
DecodeDate 分解所指定的日期為年、月、日。
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word);
DecodeTime 分解所指定的日期為時、分、秒。
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word);
EncodeDate 傳回將年、月、日所組合的日期格式。
function EncodeDate(Year, Month, Day: Word):TDateTime;
EncodeTime 傳回將時、分、秒所組合的時間格式。
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime;
FormatDateTime 以指定的格式傳回日期時間。
function FormatDateTime(const Format: string;DateTime: TDateTime):String;
Now 傳回現在的日期時間。function Now: TDateTime;
StrToDate 將字串轉為日期格式。function StrToDate(const S:string): TDateTime;
StrToDateTime 將字串轉為日期時間格式
function StrToDateTime(const S: string): TDateTime;
StrToTime 將字串轉為時間格式。function StrToTime(const S:string): TDateTime;
Time 傳回現在時間。function Time: TDateTime;
TimeToStr 將時格式轉為字串。function TimeToStr(Time:TDateTime): String;
========================================
動態配置函數(Dynamic Allocation Routines)
Unit: System
========================================
Dispose 釋回一個動態變數。procedure Dispose(var P: Pointer);
Free 釋放一個物件複本。procedure Free;
FreeMem 釋回一給定大小的動態變數。
procedure FreeMem(var P:Pointer; Size: Word);
GetMem 建立一個指定大小的動態變數，並由Pointer 參數傳回位址。
procedure GetMem(var P:Pointer; Size: Word);
New 建立一個新的動態變數，並將Pointer 參數指向它。
procedure New(var P: Pointer);
function New():Pointer;
MaxAvail 傳回連續最大的可配置空間。function MaxAvail: Longint;
MemAvail 傳回所有的可配置空間。function MemAvail: Longint;
========================================
檔案管理函數
Unit: SysUtils
========================================
ChangeFileExt 變更檔案的延伸檔名。
function ChangeFileExt(const FileName,Extension: string):string;
DateTimeToFileDate 將Delphi 的日期格式轉換為DOS的日期格式。
functionDateTimeToFileDate(DateTime:TDateTime): Longint;
DeleteFile 刪除一個檔案。
function DeleteFile(const FileName: string):Boolean;
DiskFree 傳回磁碟的可用空間。function DiskFree(Drive: Byte): Longint;
DiskSize 傳回指定磁碟的容量大小。function DiskSize(Drive: Byte): Longint;
ExpandFileName 傳回一個完整的路徑及檔名字串。
function expandFileName(const FileName: string):string;
ExtractFileExt 傳回檔案的延伸檔名。
function ExtractFileExt(const FileName string):string;
ExtractFileName 傳回檔案的檔名。
function ExtractFileName(const FileName: string):string;
ExtractFilePath 傳回檔案的路徑。
function ExtractFilePath(const FileName: string):string;
FileAge 傳回檔案的年紀function FileAge(const FileName: string):Longint;
FileCreate 以指定檔名建立一個檔案。
function FileCreate(const FileName: string):Integer;
FileClose 關閉指定的檔案。procedureFileClose(Handle: Integer);
FileDateToDateTime 將DOS 的日期格式轉為Delphi 的日期格式。
function FileDateToDateTime(FileDate: Longint):TDateTime;
FileExists 判別檔案是否存在。function FileExists(const FileName: string):Boolean;
FileGetAttr 傳回檔案屬性。function FileGetAttr(const FileName: string):Integer;
FileGetDate 傳回檔案的日期及時間。function FileGetDate(Handle: Integer): Longint;
FileRead 從指定的檔案讀入資料。
function FileRead(Handle:Integer; var Buffer;Count:Longint):Longint;
FileSearch 在目錄列中搜尋指定的檔案。
function FileSearch(constName, DirList: string):string;
FileSeek 改變檔案游標的位置。
function FileSeek(Handle: Integer;Offset: Longint;Origin: Integer):Longint;
FileSetAttr 設定檔案屬性。
function FileSetAttr(const FileName: string;Attr:Integer): Integer;
FileSetDate 設定檔案的日期及時間。
procedure FileSetDate(Handle: Integer; Age:Longint);
FileOpen 開啟檔案。
function FileOpen(const FileName: string; Mode:Word): Integer;
FileWrite 寫資料到檔案。
function FileWrite(Handle:Integer;const Buffer; Count:Longint): Longint;
FindClose 終止找尋第一個／下一個的動作。
procedure FindClose(var SearchRec: TSearchRec);
FindFirst 尋找第一個符合的檔案並設定其屬性。
function FindFirst(const Path: string;Attr: Word; var F:TSearchRec): Integer;
FindNext 傳回下一個符合的檔案。function FindNext(var F:TSearchRec): Integer;
RenameFile 變更檔名。function RenameFile(const OldName,NewName: string):Boolean;
========================================
浮點數轉換函數 (Floating-point Conversion Routines)
Unit: SysUtils
========================================
FloatToDecimal 將浮點數值分成小數及整數部份的數字傳回。
procedure FloatToDecimal(var Result: TFloatRec;Value:Extended;Precision, Decimals:Integer);
FloatToStrF 依照指定格式將浮點數轉成字串描述。
function FloatToStrF(Value: Extended; Format:TFloatFormat;Precision,Digits: Integer): string;
FloatToStr 將浮點數轉成字串描述。function FloatToStr(Value: Extended): string;
FloatToText 將所給的浮點數值，分成小數及整數部份的數字依照格式傳回。
function FloatToText(Buffer: Pchar; Value:Extended;Format:TFloatFormat;Precision,Digits: Integer): Integer;
FloatToTextFmt 將浮點數依照格式轉成字串傳回。
function FloatToTextFmt(Buffer: PChar; Value:Extended;Format: PChar) :Integer;
FormatFloat 將浮點數值依照Format 格式傳回。
function FormatFloat(constFormat: string;Value:Extended):string;
StrToFloat 將所給字串轉成一個浮點數值。
function StrToFloat(const S: string): Extended;
TextToFloat 將一個null 結尾字串轉成浮點數值
function TextToFloat(Buffer: PChar;var Value:Extended): Boolean;
========================================
流程控制函數 (Flow-control Routines)
Unit: System
========================================
Break 終止迴圈。如for, while 及repeat 迴圈。
procedure Break;
Continue 繼續迴圈。如for, while 及repeat 迴圈。
procedure Continue;
Exit 離開目前的區塊。procedure Exit;
Halt 停止程式的執行並回到作業系統。
procedure Halt[ ( Exitcode: Word ) ];
RunError 停止程式執行。procedure RunError[ ( Errorcode: Byte ) ];
========================================
輸出入函數 (I/O Routines)
Unit: System
========================================
AssignFile 指定一個檔案到檔案變數。procedure AssignFile(var f, String);
CloseFile 關閉檔案。procedure CloseFile(var F);
Eof 判斷是否已到檔案結尾。
Typed or untyped files:
functionEof(var F): BooleanText files:function Eof [ (var F: Text) ]:Boolean;
Erase 清除檔案內容。procedure Erase(var F);
FilePos 傳回目前檔案游標位置。function FilePos(var F): Longint;
FileSize 傳回檔案的大小function FileSize(var F):Longint;
GetDir 傳回指定磁碟的工作目錄。procedure GetDir(D: Byte; var S: String);
IOResult 傳回最後I/O 執行的狀態。function IOResult: Integer;
MkDir 建立一子目錄。procedure MkDir(S: String);
Rename 變更外部檔案的檔名。procedure Rename(var F; Newname);
Reset 開啟一個已存在的檔案。procedure Reset(var F [: File; Recsize: Word ] );
Rewrite 建立並開啟一個新檔。procedure Rewrite(var F: File [; Recsize: Word ] );
RmDir 刪除一個空目錄。procedure RmDir(S: String);
Seek 移動檔案游標。procedure Seek(var F; N: Longint);
Truncate 刪截目前位置以後的檔案內容。procedure Truncate(var F);
========================================
記憶體管理函數 Memory-management Routines)
Unit: SysUtils
========================================
AllocMem 配置一個記憶體區塊給堆積heap 。
function AllocMem(Size: Cardinal): Pointer;
ReAllocMem 從堆積釋回一區塊。
function ReAllocMem(P: Pointer;CurSize, NewSize:Cardinal): Pointer;
========================================
雜項函數 (Miscellaneous Routines)
Unit: System, SysUtils
========================================
AddExitProc 加入一個程序到執行時期程式庫的出口程序列中。
procedure AddExitProc(Proc: TProcedure);
Exclude 從一個集合除去一個元素。procedure Exclude(var S: set of T;I:T);
FillChar 以一個字元填入指定個數到一個變數上。
procedure FillChar(var X; Count: Word; value);
Hi 傳回參數的高位元組。function Hi(X): Byte;
Include 將元素包含到集合內。procedure Include(var S: set of T; I:T);
Lo 傳回參數的低位元組。function Lo(X): Byte;
Move 從Source 複製Count 個數的位元組到Dest 。
procedure Move(varSource,Dest; Count: Word);
ParamCount 傳回命令列參數的個數。function ParamCount: Word;
ParamStr 傳回一個指定的命令列參數。function ParamStr(Index): String;
Random 傳回一個隨機亂數。function Random[ ( Range: Word) ];
Randomize 初值化亂數產生器。procedure Randomize;
SizeOf 傳回參數所佔位元組數。function SizeOf(X): Word;
Swap 將參數的高位元組和低位元組交換。function Swap(X);
TypeOf 傳回指向物件型態的虛擬方法表的指標。function TypeOf(X) : Pointer
UpCase 將字元轉為大寫。function UpCase(Ch: Char):Char;
========================================
次序函數 (Ordinal Routines)
Unit: System
========================================
Dec 遞減一個變數。procedure Dec(var X[ ; N:Longint]);
Inc 遞增一個變數procedure Inc(var X[ ; N:Longint ] );
Odd 判別式否為奇數。function Odd(X: Longint):Boolean;
Pred 傳回參數的前任者。function Pred(X);
Succ 傳回參數的後繼者。function Succ(X);
========================================
指標和位址函數 (Pointer and Address Routines)
Unit: System
========================================
addr 傳回指定物件的位址。function Addr(X): pointer;
Assigned 判斷是否一個函數或程序是nil
function Assigned(var P):Boolean;
CSeg 傳回CS 程式段暫存器的內容。function CSeg: Word;
DSeg 傳回DS 資料段暫存器的內容。function DSegt: Word;
Ofs 傳回參數的偏移位址。function Ofs(X): Word;
Ptr 將所指定的節段及偏移位址組合到一個指標。function Ptr(Seg, Ofs: Word):Pointer;
Seg 傳回參數的節段位址。function Seg(X): Word;
SPtr 傳回SP 堆疊存器的內容。function SPtr: Word;
SSeg 傳回SS 堆疊段暫存器的內容。function SSeg: Word;
========================================
字串格式函數 (String-formatting Routines)
Unit: SysUtils
========================================
FmtStr 將所列參數依照Format 的格式組合到Result 字串傳回。
procedure FmtStr(var Resut: string; const Format:string;const Args: array of const);
Format 將所列參數依照Format 的格式組合到Pascal 格式字串傳回。
fonction Format(const Format: string;const Args:array of const): string;
FormatBuf 格式化所列的參數。
function FormatBuf(var Buffer; BufLen: Word;const Format;
FmtLen:Word;Const Args: array of const):Word;
StrFmt 格式化所列的參數。function StrFmt(Buffer,
Format: PChar;const Args: array of const):PChar;
StrLFmt 格式化所列參數，並將結果指向Buffer 指標。
function StrLFmt(Buffer: PChar; MxLen: Word;Format:
PChar;const Args: array of const):PChar;
========================================
字串處理函數(String-handling Routines :Pascal-style)
Unit: SystUtils
========================================
AnsiCompareStr 比較兩個字串。function AnsiCompareStr(const S1, S2: string):Integer;
AnsiCompareText 比較兩個字串且無大小寫區別。
function AnsiCompareText(const S1, S2: string):Integer;
AnsiLowerCase 將字串內容轉為小寫。function AnsiLowerCase(const S: string): string;
AnsiUpperCase 將字串內容轉為大寫。function AnsiUpperCase(const S: string): string;
AppendStr 將所給字串連接到Dest 字串後面。
procedure AppendStr(var Dest: string; const S:string);
AssignStr 配置記憶體空間給字串。
procedure AppendStr(var P: PString; const S:String);
CompareStr 比較兩個字串。
function CompareStr(const S1,S2: string):Integer;
CompareText 比較兩個字串且無大小寫區別。
function CompareText(const S1, S2: String):Integer;
Concat 連結所列字串。function Concat(s1 [, s2,… , sn]: String):String;
Copy 傳回字串的部份字串內容。function Copy(S: String; Index, Count:Integer): String;
Delete 刪除所給字串內的子字串。procedure Delete(var S: String; Index,Count:Integer);
DisposeStr 釋回字串佔用的空間。procedure DisposeStr(P: PString);
FmtLoadStr 從程式的資源字串表中載入一個字串。
function FmtLoadStr(Ident: Word;const Args: array of const): string;
Insert 在一個字串內插入一個子字串
procedure Insert(Source: String; var S: String;Index: Integer);
IntToHex 將一個整數轉為十六進位。
function IntToHex(Value: Longint; Digits:Integer): string;
IntToStr 將數字轉成字中格式。function IntToStr(Value: Longint): string;
IsValidIdent 判別字串內容是否為正確的識別字。
function IsValidIdent(const Ident: string):Boolean;
Length 傳回字串的長度。function Length(S: String): Integer;
LoadStr 從應用程式的可執行檔中載入一個字串資源。
function LoadStr(Ident: Word): string;
LowerCase 將字串轉成小寫。function LowerCase(const S: string): string;
NewStr 從堆積配置一個字串空間。function NewStr(const S: string): PString;
Pos 傳回子字串在字串中的位置。function Pos(Substr: String; S: String):
Str 將數值轉為字串。procedure Str(X [: Width [: Decimals ]];var S);
StrToInt 將字串轉為整數值。function StrToInt(const S: string): Longint;
StrToIntDef 將字串轉整數值或預設值。
function StrToIntDef(const S: string; Default:Longint): Longint;
Uppercase 將字串轉成大寫。function UpperCase(const S: string): string;
val 將字串內容轉為數值描述。procedure Val(S; var V; var Code: Integer);
========================================
字串處理函數 (String-handling Routines : Null-terminated)
Unit: SysUtils
========================================
StrAlloc 配置一個最大長度為Size-1 的緩衝區給null 結尾字串
function StrAlloc(Size: Word): PChar;
StrBufSize 傳回由StrAlloc 配置的字串緩衝區內可以儲存的最大字元數。
function StrBufSize(Str: PChar): Wrd;StrCat 連結兩個字串並傳回該字串。
function StrCat(Dest, Source: PCar): PChar;
StrComp 比照兩個字串。function StrComp(Str1, Str2 : Pchar): Integer;
StrCopy 拷貝Source 字串到Dest 上。function StrCopy(Dest, Source: PChar): PChar
StrDispose 釋回一個字串空間。function StrDispose(Str:PChar);
StrCopy 拷貝Source 字串到Dest 上並傳回指向該字串結尾的指標。
function StrECopy(Dest, Surce: Pchar): Pchar;
StrEnd 傳回一指標指向字串的結尾function StrEnd(Str: Pchar): Pchar;
StrLCat 將Source 字串連結到Dest 字串後，並傳回連結的字串。
function StrLCat(Dest, Source:PCar; MaxLen: Word): PChar;
StrIComp 比較兩個字串具無大小寫區別
function StrIComp(Str1, Str2:Pchar): Integer;
StrLComp 比較兩個字串到所指定的最大長度
function StrLComp(Str1, Str2:Pchar; MaxLen: Word): Integer;
StrLCopy 從一字串拷貝指定字元數到另一字串
Function StrLCopy(Dest,Source:PChar;MaxLen: Cardinal): PChar;
StrLen 傳回字串的長度。function StrLen(Str: PChar):Cardinal;
StrLIComp 比較兩個字串到所指定的最大長度具無大小寫區別。
function StrLIComp(Str1, Str2:PChar; MaxLen: Word):Integer;
StrLower 將字串轉成小寫。
function StrLower(Str: PChar):PChar;
StrMove 拷貝Count 字元數，從Source 到Dest字串。
function StrMove(Dest, Source:PChar; Count: Cardinal): PChar
StrNew 從堆積配置一個字串。function StrNew(Str: PChar):PChar;
StrPas 將null 結尾字中轉成一個Pascal 格式字串。
function StrPas(Str: Pchar):String;
StrPCopy 拷貝一個Pascal 格式字串到一個null結尾字串。
Function StrPCopy(Dest:PChar;Source: String): PChar;
StrPLCopy 拷貝MaxLen 所指字元數，從Pascal格式字串到null 結尾字串。
Function StrPLCopy(Dest:Pchar;cost Source: string;MaxLen: Word): PChar;
StrPos 傳回一指標指向在Str1 內最先出現 Str2 字串的位置。
function StrPos(Str1, Str2: Pchar): Pchar;
StrScan 傳回一指標指向在Str 字串中第一個出現chr 字元的位置。
function StrScan(Str: PChar; Chr: Char): PChar;
StrRScan 傳回一指標指向在Str 子串中最後出現chr 字元的位置。
function StrRScan(Str: Pchar; Chr: Char): PChar;
StrUpper 將字串轉成大寫。function StrUpper(Str: PChar):PChar;
========================================
文字檔案函數 (Text-file Routines)
Unit: System
========================================
Append 開啟一個存在的檔案供增加。procedure Append(var f: Text);
Eoln 判別一文字檔是否在行尾。function Eoln [(var F: Text) ]:Boolean;
Flush 清除文字輸出檔的緩衝區。procedure Flush(var F: Text);
Read 從檔案讀入資料到所列變數。Typed files:
Procedure Read(F , V1[, V2,… ,Vn ] );Text files:
procedure Read( [ var F: Text; ] V1 [,V2,… ,Vn]);
Readln 從檔案讀入資料到所列變數並跳至下一行。
procedure Readln( [ var F:Text; ]V1 [, V2,… ,Vn ]);
SeekEof 判別是否已到檔尾。function SeekEof [ ( var F:Text) ]: Boolean;
SeekEoln 判別一檔案是否在行尾。function SeekEoln [(var F: Text) ]: Boolean;
SetTextBuf 指定一個I/O 緩衝區給一文字檔。
procedure SetTextBuf(var F: Text; var Buf [ ; Size:Word ] );
Write 將變數內的資料寫到檔案。Text files:
procedure Write( [ var F:Text; ] P1 [,P2,… ,Pn ] );
Typed files:
procedure Write(F, V1[V2,… Vn]);
writeln 執行Write 程序並輸出一個跳行到檔案。
procedure Writeln([ var F: Text; ] P1 [, P2,… ,Pn ] );
========================================
轉換函數(Transfer Routines)
Unit: System
========================================
Chr 傳回ASCII 碼所對應的字元。function Chr(X: Byte): Char;
Delphi 源碼任務 ( http://home.kimo.com.tw/bruce0211/ ) 打字整理15
High 傳回參數在範圍內的最高值。function High(X);
Low 傳回參數在範圍內的最低值。function Low(X);
Ord 傳回一個有序型態所對應的順序值。function Ord(X): Longint;
Round 將一個實數值四捨五入而傳回整數值。function Round(X: Real):Longint;
Trunc 將一個實數值去尾而傳回整數值。function Trunc(X: Real):Longint;
========================================
未定型態檔案函數(Untyped-file Routines)
Unit: System
========================================
BlockRead 從檔案讀入一個或數個記錄到Buf 變數。
procedure BlockRead(var F: File; var Buf;Count: Word [; var Result:Word]);
BlockWrite 從一變數寫入一個或數個記錄。
procedure BlockWrite(var f: File; var Buf;Count: Word [; var Result:Word]);