程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> DELPHI字符串、數組操作函數

DELPHI字符串、數組操作函數

編輯: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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved