【正文】 例：　　var　　 　S: String?！　?　F: TextFile。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 打開文件　　 　while not EOF(F) do begin // 使用While循環(huán)，一直判斷是否到了文件未尾　　 　　Readln(F, S)。　　 　end。 // 關(guān)閉文件　　end。該函數(shù)只有一個(gè)參數(shù)。如果刪除成功，則返回True?！　⒖紝?shí)例：　　var　　 　IsOK: Boolean。C:/My Documents/39。 // 函數(shù)執(zhí)著后，將結(jié)果返回給IsOK變量。　　 　if IsOK then ShowMessage(39。)　　 　else ShowMessage(39。)。　　　　功能說明：檢測(cè)指定的文件夾否存在。　　參考實(shí)例：　　var　　 　IsExists: Boolean。C:/Windows39?！　?　if IsExists then ShowMessage(39。)　　 　else ShowMessage(39。)。　　　　功能說明：獲取指定磁盤的剩余空間。該參數(shù)用于指定要獲取剩余空間的磁盤號(hào)。如果返回值為1，表示指定的磁盤無效?！　egin　　 　FreeSize := DiskFree(3)。返回的值是以“字節(jié)”為單位的?！　　　」δ苷f明：獲取指定磁盤的空間。該參數(shù)用于指定要獲取磁盤空間的磁盤號(hào)。如果返回值為1，表示指定的磁盤無效。　　begin　　 　DiskSize:= DiskSize(3)。返回的值是以“字節(jié)”為單位的?！　　　」δ苷f明：判斷文件指針是否移動(dòng)到了文件未尾。　　參考實(shí)例：　　var　　 　S: String?！　?　F: TextFile。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 打開文件　　 　while not EOF(F) do begin // 使用While循環(huán)，一直判斷是否到了文件未尾　　 　　Readln(F, S)?！　?　end?！　　　」δ苷f明：刪除文件?！　egin　　AssignFile(F, 39。)?！　?　Reset(F)。 // 關(guān)閉文件　　 　Erase(F)。在刪除文件之前必須先關(guān)閉文件?！　　　」δ苷f明：檢測(cè)指定的文件否存在?！　⒖紝?shí)例：　　var　　 　IsExists: Boolean。C:/39。　　 　if IsExists then ShowMessage(39。)　　 　else ShowMessage(39。)?！　　　」δ苷f明：獲取文件大小。　　參考實(shí)例：　　var　　 　F: file of Byte?！　egin　　AssignFile(F, 39。)?！　?　Reset(F)。 // 獲取文件大小。 // 關(guān)閉文件　　end。路徑中不存在的目錄將一同創(chuàng)建。C:/Flash/MyFolder39。 // 如果Flash文件夾本身不存的話，那么將會(huì)先創(chuàng)建Flash文件夾，然后再創(chuàng)建MyFolder文件夾。　　參考實(shí)例：　　MkDir(39。)?！　⌒枰⒁獾氖?，如果在本身不存在的目錄中創(chuàng)建子目錄將會(huì)失敗。C:/Flash/MyFolder39。這樣將不能成功創(chuàng)建MyFolder文件夾?！　⒖紝?shí)例：　　var　　 　F: TextFile。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 打開文件　　end。如果文件不存在，將會(huì)自動(dòng)創(chuàng)建。　　參考實(shí)例：　　var　　 　F: TextFile。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 打開文件。如果文件存在?！　　　」δ苷f明：讀取一行文本?！　?　F: TextFile。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 打開文件　　 　Readln(F, S)。　　　　功能說明：更改文件名?！　egin　　AssignFile(F, 39。)?！　?　ReName(F, 39。)?！　　　」δ苷f明：寫入一行文本?！　?　F: TextFile。This is a book.39。C:/39。 // 將C:/，后面可以使用F變量對(duì)文件進(jìn)行操作。 // 創(chuàng)建新文件　　 　Writeln(F, S)。　　end。Windows API函數(shù)也為增強(qiáng)程序的功能提供了強(qiáng)有力的保障。因此，這些函數(shù)是必不可少的。如果不需要初始化為零，可以使用GetMem代替AllocMem?！　egin　　 　Buffer := AllocMem(256)?！　　　」δ苷f明：釋放為指針分配的內(nèi)存空間。 // 聲明一個(gè)Integer(整型)指針　　begin　　 　New(P)?！　?　Dispose(P) // 釋放內(nèi)存　　end。　　參考實(shí)例：　　var　　 　Buffer: Pchar。 // 分配大小為256個(gè)字節(jié)的內(nèi)存空間。 // 釋放內(nèi)存空間　　end?！　⒖紝?shí)例：　　var　　 　Buffer: PChar。 // 分配大小為256個(gè)字節(jié)的內(nèi)存空間?！　　　」δ苷f明：為指針分配內(nèi)存空間。 // 聲明一個(gè)Integer(整型)指針　　begin　　 　New(P)。 // 賦值　　end。比如圖像處理軟件，就會(huì)大量用到這些數(shù)學(xué)運(yùn)算函數(shù)。　　　　功能說明：求絕對(duì)值。　　 　i: Integer。 // r等于 　　 　i := Abs(156)?！　　　」δ苷f明：Exp返回e的X次冪的值，其中e是一個(gè)自然對(duì)數(shù)基底。 // e為real型變量　　end?！　⒖紝?shí)例：　　Floor() = 3　　Floor() = 2　　Floor() = 1　　　　功能說明：返回參數(shù)中的整數(shù)部分。　　begin　　 　R := Int()。 // R等于 　　end?！　⒖紝?shí)例：　　var　　 　k: Integer。 // k將為20　　end?！　⒖紝?shí)例：　　var　　 　k: Integer。 // k將為10　　end?！　⒖紝?shí)例：　　var　　 　x Extended。 // 　　end。　　參考實(shí)例：　　var　　 　I, j: Integer。 // i等于1　　 　j := Round()。　　　　功能說明：取給定值的平方?！　egin　　 i := Sqr(3)?！　×?、日期函數(shù)　　對(duì)日期的處理，一般在有日期限制的共享、商業(yè)軟件中經(jīng)常使用到?！　　　」δ苷f明：返回當(dāng)前的日期。　　begin　　 　 := 39。 + DateToStr(Date)。　　Label顯示為：今天是2005年1月1日?！　⒖紝?shí)例：　　var　　 　S: String?！　nd?！　⒖紝?shí)例：　　var　　 　S: String?！　nd?！　⒖紝?shí)例：　　 := IntToStr(DayOfTheMonth(Now))?！　?所在單元：DateUtils)　　功能說明：根據(jù)指定日期，獲取星期幾?！　〖僭O(shè)當(dāng)前日期為2005年1月2日，那么Label將顯示為7。7表示星期天，1為星期一，依類類推。　　參考實(shí)例：　　 := IntToStr(DayOfTheYear(Now))。表示是2005年的第2天?！　⒖紝?shí)例：　　 := IntToStr(DayOf(Date))?！　　　」δ苷f明：根據(jù)指定的年，判斷是否為閏年?！　⒖紝?shí)例：　　procedure (Sender: TObject)。是閏年39。不是閏年39?！　nd?！　⒖紝?shí)例：　　 := IntToStr(MonthOf(Date))。　　　　功能說明：返回當(dāng)前日期及時(shí)間?！　egin　　 　 := 39。 + DateTimeToStr(Now)。　　(所在單元：DateUtils)　　功能說明：根據(jù)指定的日期，返回年。　　假設(shè)當(dāng)前日期為2005年1月2日，那么Label將顯示為2005?！　≡贒elphi中調(diào)用函數(shù)，一般情況下可以直接使用函數(shù)即可，但由于有一些函數(shù)未包含在Uses中列出的單元中(默認(rèn)單元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs。比如，MidStr函數(shù)就未包含在這些單元中，MidStr所屬單元在StrUtils中，因此我們將StrUtils添加Uses中即可?！　∫?、數(shù)據(jù)類型轉(zhuǎn)換函數(shù)　　在我們編寫程序當(dāng)中，根據(jù)不同情況，會(huì)使用到多種數(shù)據(jù)類型。因此熟練地掌握數(shù)據(jù)類型的轉(zhuǎn)換是非常重要的?！　⒖紝?shí)例：　　 := FloatToStr()?！　⒖紝?shí)例：　　S := IntToStr(10)。)　　　　功能說明：該函數(shù)用于將“十進(jìn)制”轉(zhuǎn)換成“十進(jìn)制”。第一個(gè)參數(shù)為要轉(zhuǎn)換的十進(jìn)制數(shù)據(jù)，第二個(gè)參數(shù)是指定使用多少位來顯示十六進(jìn)制數(shù)據(jù)。10039。　　執(zhí)行結(jié)果。使用StrToInt函數(shù)可以實(shí)現(xiàn)這個(gè)功能。S/39。6439。 這時(shí)I等于100。S/39?！　　　」δ苷f明：該函數(shù)用于將“字符型”轉(zhuǎn)換成“整數(shù)型”。10039?！　∽⒁猓翰荒苻D(zhuǎn)換如 StrToInt(39。)或StrToInt(39。)這樣的類型，因?yàn)樗麄儾⒉淮嬖跀?shù)字型?！　⒖紝?shí)例：　　N := StrToFloat()。N為Double類型，用于保存轉(zhuǎn)換后的浮點(diǎn)型數(shù)據(jù)。熟練的使用這些函數(shù)，在編程時(shí)能更加得心應(yīng)手。該函數(shù)有3個(gè)參數(shù)。最后函數(shù)返回一個(gè)新的字符串(即是我們指定要復(fù)制的字符串內(nèi)容)?！　?　MyStr: String。I Love China!39?！　yStr := Copy(S, 3, 4)?！　?zhí)行結(jié)果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3個(gè)位置開始，所以第二個(gè)參數(shù)為3，“Love”一共有4個(gè)字符，所以第三個(gè)參數(shù)為4?！　⒖紝?shí)例：　　var　　 　S1, S2: String。A39。B39。 // 連接兩個(gè)字符串，S1變量等于AB。Borland39。 Delphi39。 39。 // 連接三個(gè)字符，S2變量等于Borland Delphi ?！　　　」δ苷f明：刪除字符串中指定的字符串。第一個(gè)參數(shù)為要進(jìn)行處理的字符串，第二個(gè)參數(shù)為從何處開始刪除，第三個(gè)參數(shù)為刪除的字符個(gè)數(shù)?！　egin　　 　S := 39。 　　 　// 下面的代碼將刪除S變量中的“C”字符?！　nd?！　　　」δ苷f明：返回?cái)?shù)組下標(biāo)的最大值?！　?　i: Integer。 // i的值則為9　　end。該函數(shù)有三個(gè)參數(shù)。　　參考實(shí)例：　　var　　 　S: String。Wat is your name?39?！　?　Insert(39。, S, 2)。　　end。該函數(shù)有兩個(gè)參數(shù)?！　⒖紝?shí)例：　　var　　 　S, A: String。MSN Messenger39。 // 從最左邊開始，獲取左邊的三個(gè)字符?！　nd?！　⒖紝?shí)例：　　var　　nLen1, nLen2: Integer。CPCW39?！　Len2 := Length(39。)?！　?zhí)行結(jié)果，nLen1等于4，nLen2等于6?！　　　」δ苷f明：返回?cái)?shù)組下標(biāo)的最小值?！　?　i: Integer。 // i的值則為1　　end?！　⒖紝?shí)例：　　var　　 　S, A: String。ABC39。 // 經(jīng)過UpperCase函數(shù)轉(zhuǎn)換后，A則等于abc?！　?所在單元：StrUtils)　　功能說明：返回指定范圍內(nèi)的字符串。第一個(gè)參數(shù)為源字符串，第二個(gè)參數(shù)為起點(diǎn)，第三個(gè)參數(shù)為結(jié)束點(diǎn)?！　opy函數(shù)與此函數(shù)類似?！　⒖紝?shí)例：　　var　　 　S: String?！　egin　　 　S := MidStr(39。, 1, 2)。電腦報(bào)39。 // H變量為“電”。電腦報(bào), 1, 2)，否則返回的將不是“電”字?！　nd。該函數(shù)有二個(gè)參數(shù)?！　⒖紝?shí)例：　　var　　 　nPos: Integer。Like39。I Like Reading!39。　　end。如果沒有查找到，則nPos為0。如果要實(shí)現(xiàn)不區(qū)分大小，那么需要使用UpperCase或LowerCase函數(shù)將兩個(gè)參數(shù)的字符(串)轉(zhuǎn)換為“大寫”或“小寫”再進(jìn)行查找。當(dāng)你查找的是漢字時(shí)，最好使用AnsiPos函數(shù)。該函數(shù)有兩個(gè)參數(shù)?！　⒖紝?shí)例：　　var　　 　S, A: String。MSN Messenger39。 // 從最右邊開始，獲取右邊的三個(gè)字符?！　nd。該函數(shù)有兩個(gè)參數(shù)。　　參考實(shí)例：　　var　　 　S: String。 // 定義一個(gè)動(dòng)態(tài)數(shù)組　　begin　　 　SetLength(S, 10)?！　?　SetLength(arrText, 10)。這句代碼的作用相當(dāng)于arrText: array[0..9] of Char　　end。該函數(shù)有兩個(gè)參數(shù)?！　⒖紝?shí)例：　　var　　 　arrChar: array[0..255] of Char。Come on, baby!39。　　end。　　參考實(shí)例：　　var　　 　S: String。 Delphi 39?！　nd。　　參考實(shí)例：　　 　S := TrimLeft(39。)?！　⒖紝?shí)例：　　 　S := TrimRight(39。)?！　⒖紝?shí)例：　　var　　 　S, A: String。abc39。 // 經(jīng)過UpperCas