1.常用的是 string。
2.打開(kāi)IDE，新建VCL應(yīng)用，添加一個(gè)button1，一個(gè)memo1，雙擊button1，編寫(xiě)代碼：

procedure TForm2.Button1Click(Sender: TObject);
var
  str1:string;   //定義一個(gè)字符串變量，存儲(chǔ)一句中文
  str2:string;  //定義一個(gè)字符串變量，存儲(chǔ)一句英文
  str3:string;  //定義一個(gè)字符串變量，用來(lái)臨時(shí)儲(chǔ)存字符串
begin
  str1:='千山鳥(niǎo)飛絕'; 
  str2:='A thousand mountains without a bird';
  Memo1.Lines.Add(str1);      //顯示：千山鳥(niǎo)飛絕
  Memo1.Lines.Add(str2);     //顯示：A thousand mountains without a bird
  Memo1.Lines.Add(str1.Length.ToString);   //顯示：5，表示str1的長(zhǎng)度是5，即5個(gè)中文字符
  Memo1.Lines.Add(str2.Length.ToString);   //顯示：35，表示str2的長(zhǎng)度是35，即35個(gè)英文字符
  Memo1.Lines.Add(str1[1]);                        //顯示：千，str[1]表示第一字符
  Memo1.Lines.Add(str1[str1.Length]);       //顯示：絕，str[str1.Length]表示最后一個(gè)字符
  Memo1.Lines.Add(str2[str2.Length]);        //顯示：d，str[str2.Length]表示最后一個(gè)字符
  Memo1.Lines.Add(str1+str2);                   //顯示：千山鳥(niǎo)飛絕A thousand mountains without a bird，表示兩個(gè)字符串連一起了。
  Memo1.Lines.Add(str1.IndexOf('千').ToString);   //顯示：0，表示“千”在str1中第一次出現(xiàn)的位置
Memo1.Lines.Add(str1.IndexOf('鳥(niǎo)').ToString);    //顯示：2，表示“鳥(niǎo)”在str1中第一次出現(xiàn)的位置
  Memo1.Lines.Add(str2.IndexOf('A').ToString);  //顯示：0，表示“A”在str2中第一次出現(xiàn)的位置
  Memo1.Lines.Add(str2.IndexOf('a').ToString);  //顯示：7，表示“a”在str2中第一次出現(xiàn)的位置
  str3:=copy(str1,4,2);   
  Memo1.Lines.Add(str3);    //顯示：飛絕，表示從str1中截取字符串：從第4個(gè)開(kāi)始，共截取2個(gè)。
  str3:=pos('鳥(niǎo)',str1).ToString;  
  Memo1.Lines.Add(str3);   //顯示：3，表示“鳥(niǎo)”在str1中的位置
  str3:=StringReplace(str2,'t','9',[]);  
  Memo1.Lines.Add(str3);  //顯示：A 9housand mountains without a bird ，表示只替換了第一“t“
  str3:=StringReplace(str2,'t','9',[rfReplaceAll, rfIgnoreCase]);  
  Memo1.Lines.Add(str3);    //顯示：A 9housand mountains without a bird ，表示替換所有的“t“
end;

以上代碼在Delphi 10.4中測(cè)試通過(guò)。

10.png

d10.4.gif