7.Delphi:字符串类型

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
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容