Delphi 关于字符串的一些使用技巧


本文整理自网络,侵删。

 关于字符串的操作.整理些技巧知识,如取得字符串长度,将字符串中的内容写入数组,取得字符串中指定的字符,将字符串改为首字大写,去掉字符串中的空格,替换字符串中的内容.希望对大家的学习有所帮助.

//取得字符串长度
var
mystr:string;//定义字符串
strlength:integer;
begin
setlength(mystr,5);//将字符串定义为5个字节的长度
strlength:=length(mystr);//取得字符串长度
showmessage(inttostr(strlength));//显示字符串长度
end;




//将字符串中的内容写入数组
var
A: array[0..79] of Char;
S: String;
begin
S := ’字符串转换测试’;
StrPCopy(A, S); //将字符串中的内容写入数组
Canvas.TextOut(10, 10, string(A));


//取得字符串中指定的字符
var
mystr:string;
begin
mystr:='Delphi7';
showmessage(mystr[3]);


//将字符串改为首字大写
begin
with Sender as TEdit do
if (Text = ’’)
or (Text[SelStart] = ’ ’)
or (SelLength = Length(Text)) then
if Key in [’a’..’z’] then Key := UpCase(Key);
end;


//去掉字符串中的空格
var
str1,str2:string;
begin
str1:=edit1.Text;
str2:=StringReplace ( str1, ’ ’, ’’, [rfReplaceAll] );
label1.Caption:=str2;
end;


//替换字符串中的内容
function ReplaceSub(str, sub1, sub2: String): String;
var
aPos: Integer;
rslt: String;
begin
aPos := Pos(sub1, str);
//取得子字符串的位置
rslt := ’’;
while (aPos <> 0) do begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1));
//删除要替换的字符串
aPos := Pos(sub1, str);
end;
Result := rslt + str;
//添加要字符串
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str,sub1,sub2,res:string;
begin
str:=edit1.Text;
sub1:=edit2.Text;
sub2:=edit3.Text;
res:=ReplaceSub(str, sub1, sub2);
showmessage(res);
end;

相关阅读 >>

Delphi 简单的定时程序代码

Delphi判断一个字符是否为汉字的最佳方法

Delphi 实现软件版验证码

Delphi sqlite 自动编号的实现

Delphi 字符串与日期格式互转

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

Delphi 什么是堆、栈?

Delphi异常信息捕捉

Delphi code无法回车换行

aes.pas 和 elaes.pas

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...