1.常用的是 string。
2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码：
procedure TForm2.Button1Click(Sender: TObject);
var
str1:string; //定义一个字符串变量，存储一句中文
str2:string; //定义一个字符串变量，存储一句英文
str3:string; //定义一个字符串变量，用来临时储存字符串
begin
str1:='千山鸟飞绝';
str2:='A thousand mountains without a bird';
Memo1.Lines.Add(str1); //显示：千山鸟飞绝
Memo1.Lines.Add(str2); //显示：A thousand mountains without a bird
Memo1.Lines.Add(str1.Length.ToString); //显示：5，表示str1的长度是5，即5个中文字符
Memo1.Lines.Add(str2.Length.ToString); //显示：35，表示str2的长度是35，即35个英文字符
Memo1.Lines.Add(str1[1]); //显示：千，str[1]表示第一字符
Memo1.Lines.Add(str1[str1.Length]); //显示：绝，str[str1.Length]表示最后一个字符
Memo1.Lines.Add(str2[str2.Length]); //显示：d，str[str2.Length]表示最后一个字符
Memo1.Lines.Add(str1+str2); //显示：千山鸟飞绝A thousand mountains without a bird，表示两个字符串连一起了。
Memo1.Lines.Add(str1.IndexOf('千').ToString); //显示：0，表示“千”在str1中第一次出现的位置
Memo1.Lines.Add(str1.IndexOf('鸟').ToString); //显示：2，表示“鸟”在str1中第一次出现的位置
Memo1.Lines.Add(str2.IndexOf('A').ToString); //显示：0，表示“A”在str2中第一次出现的位置
Memo1.Lines.Add(str2.IndexOf('a').ToString); //显示：7，表示“a”在str2中第一次出现的位置
str3:=copy(str1,4,2);
Memo1.Lines.Add(str3); //显示：飞绝，表示从str1中截取字符串：从第4个开始，共截取2个。
str3:=pos('鸟',str1).ToString;
Memo1.Lines.Add(str3); //显示：3，表示“鸟”在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中测试通过。
10.png
d10.4.gif
