DELPHI字串、數組操作函數(轉)

標籤：

對字串及數組的操作，是每個程式員必須要掌握的。熟練的使用Delphi的這些函數，在編程時能更加得心應手。 
　　1.Copy 
　　功能說明：該函數用於從字串中複製指定範圍中的字元。該函數有3個參數。第一個參數是資料來源(即被複製的字串)，第二個參數是從字串某一處開始複製，第三個參數是要複製字串的長度( 
　　即個數)。最後函數返回一個新的字串(即是我們指定要複製的字串內容)。 
　　參考執行個體： 
　　var 
　　S: String; 
　　MyStr: String; // 儲存新的字串 
　　begin 
　　S := ’’I Love China!’’; 
　　//下面將擷取I Love China中的“Love”字串。 
　　MyStr := Copy(S, 3, 4); 
　　end; 
　　執行結果，MyStr等於“Love”，“Love”字串在“I Love China!”中第3個位置開始，所以第二個參數為3，“Love”一共有4個字元，所以第三個參數為4。 
　　2.Concat 
　　功能說明：串連兩個或多個字串為一個字串。 
　　參考執行個體： 
　　var 
　　S1, S2: String; 
　　begin 
　　S1 := Concat(’’A’’, ’’B’’); // 串連兩個字串，S1變數等於AB。 
　　S2 := Concat(’’Borland’’, ’’ Delphi’’, ’’ 7.0’’); // 串連三個字元，S2變數等於Borland Delphi 7.0。 
　　end; 
　　3.Delete 
　　功能說明：刪除字串中指定的字串。該函數有三個參數。第一個參數為要進行處理的字串，第二個參數為從何處開始刪除，第三個參數為刪除的字元個數。 
　　參考執行個體： 
　　var 
　　S: String; 
　　begin 
　　S := ’’I Like Reading CPCW.’’; 
　　// 下面的代碼將刪除S變數中的“C”字元。 
　　Delete(S, 16, 1); 
　　end; 
　　此時S變數則是I Like Reading PCW.(“C”已經不存在了)。 
　　4.High 
　　功能說明：返回數組下標的最大值。 
　　Delphi參考執行個體： 
　　var 
　　arrText: array[0..9] of Char; 
　　i: Integer; 
　　begin 
　　i := High(arrText); // i的值則為9 
　　end; 
　　5.Insert 
　　功能說明：插入一個字元(串)。該函數有三個參數。第一個參數為要插入的字元(串)，第二個參數為被插入字串(源字串)，第三個參數為從何處插入。 
　　參考執行個體： 
　　var 
　　S: String; 
　　begin 
　　S := ’’Wat is your name?’’; 
　　// 上面句子中的What單詞查一個“h”字元，下面使用Insert函數將h添加進去。 
　　Insert(’’h’’, S, 2); // 將“h”從第2位處插入。 
　　end; 
　　6.LeftStr(所在單元：StrUtils) 
　　功能說明：返回字串左邊指定個數的新字元(串)。該函數有兩個參數。第一個參數為完整的字串，第二個參數為指定個數。 
　　參考執行個體： 
　　var 
　　S, A: String; 
　　begin 
　　S := ’’MSN Messenger’’; 
　　A := LeftStr(S, 3); // 從最左邊開始，擷取左邊的三個字元。因此A變數則等於MSN。 
　　end; 
7.Length 
　　功能說明：該函數用於統計指定字串的長度(即個數)。 
　　參考執行個體： 
　　var 
　　nLen1, nLen2: Integer; // 用於儲存字串長度 
　　begin 
　　nLen1 := Length(’’CPCW’’); 
　　nLen2 := Length(’’電腦報’’); 
　　end; 
　　執行結果，nLen1等於4，nLen2等於6。由於一個漢字相當於兩個字元的長度，所以3個漢字的長度為6。 
　　8.Low 
　　功能說明：返回數組下標的最小值。 
　　參考執行個體： 
　　var 
　　arrText: array[1..9] of Char; 
　　i: Integer; 
　　begin 
　　i:= High(arrText); // i的值則為1 
　　end; 
　　9.LowerCase 
　　功能說明：將字元(串)中的英文字元轉換為小寫。 
　　參考執行個體： 
　　var 
　　S, A: String; 
　　begin 
　　S := ’’ABC’’; 
　　A := UpperCase(S); // 經過UpperCase函數轉換後，A則等於abc。 
　　end; 
10.MidStr(所在單元：StrUtils) 
　　功能說明：返回指定範圍內的字串。該函數有三個參數。第一個參數為源字串，第二個參數為起點，第三個參數為結束點。通過第二、第三個參數則可指定要複製字串的範圍。 
　　Copy函數與此函數類似。MidStr主要用於處理含有中文字元的字串。 
　　參考執行個體： 
　　var 
　　S: String; 
　　H: String; 
　　begin 
　　S := MidStr(’’China’’, 1, 2); // S變數為Ch 
　　H := MidStr(’’電腦報’’, 1, 1); // H變數為“電”。如果使用Copy函數，則應是H := Copy(’’電腦報, 1, 2)，否則返回的將不是“電”字。因此在使用操作含有中文的字串時，最好使用MidStr。 
　　end; 
　　11.Pos 
　　功能說明：尋找字元(串)所在位置。該函數有二個參數。第一個參數為要尋找的字元(串)，第二個參數為被尋找字元(串)。 
　　參考執行個體： 
　　var 
　　nPos: Integer; // 用於儲存尋找的字元所在位置 
　　begin 
　　nPos := Pos(’’Like’’, ’’I Like Reading!’’); 
　　end; 
　　此時nPos等於3。如果沒有尋找到，則nPos為0。 
　　注意：Pos函數在尋找時是要區分字元大小的。如果要實現不區分大小，那麼需要使用UpperCase或LowerCase函數將兩個參數的字元(串)轉換為“大寫”或“小寫”再進行尋找。 
　　另外還有一個尋找字元(串)的函數----AnsiPos，該函數的使用方法與Pos函數完全一樣。當你尋找的是漢字時，最好使用AnsiPos函數。 
　　12.RightStr(所在單元：StrUtils) 
　　功能說明：返回字串右邊指定個數的新字元(串)。該函數有兩個參數。第一個參數為完整的字串，第二個參數為指定個數。 
　　參考執行個體： 
　　var 
　　S, A: String; 
　　begin 
　　S := ’’MSN Messenger’’; 
　　A := RightStr(S, 3); // 從最右邊開始，擷取右邊的三個字元。因此A變數則等於ger。 
　　end; 
　　13.SetLength 
　　功能說明：設定字串或動態數組長度。該函數有兩個參數。第一個參數為要設定的字串變數或動態陣列變數，第二個參數為指定的長度，其取值範圍在0到255之間。 
　　參考執行個體： 
　　var 
　　S: String; 
　　arrText: array of Char; // 定義一個動態數組 
　　begin 
　　SetLength(S, 10); // 當設定後，S變數只能賦值長度為10的字串。 
　　SetLength(arrText, 10); // 只有使用SetLength為動態數組分配記憶體空間後才能使用動態數組。這句代碼的作用相當於arrText: array[0..9] of Char 
　　end; 
　　14.StrPCopy 
　　功能說明：將字串複製到字元數組中。該函數有兩個參數。第一個參數為“目標數組”，第二個參數為“字串”。 
　　Delphi函數參考執行個體： 
　　var 
　　arrChar: array[0..255] of Char; // 這裡聲明了長度為256的Char型數組 
　　begin 
　　StrPCopy(arrChar, ’’Come on, baby!’’); 
　　end; 
　　15.Trim 
　　功能說明：刪除字串左右兩邊的空格(無論左右兩邊有多少個空格均被全部刪除)。 
　　參考執行個體： 
　　var 
　　S: String; 
　　begin 
　　S := ’’ Delphi 7.0 ’’; 
　　S := Trim(S); 
　　end; 
　　16.TrimLeft 
　　功能說明：刪除字串左邊的空格(無論左邊有多少個空格均被全部刪除)。 
　　參考執行個體： 
　　S := TrimLeft(’’ Delphi’’); 
　　17.TrimRight 
　　功能說明：刪除字串左邊的空格(無論左邊有多少個空格均被全部刪除)。 
　　參考執行個體： 
　　S := TrimRight(’’Delphi ’’); 
　　18.UpperCase 
　　功能說明：將字元(串)中的英文字元轉換為大寫。 
　　參考執行個體： 
　　var 
　　S, A: String; 
　　begin 
　　S := ’’abc’’; 
　　A := UpperCase(S); // 經過UpperCase函數轉換後，A則等於ABC。 
　　end;

DELPHI字串、數組操作函數(轉)