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 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi加密access文件头

Delphi tdictionary保存到文件

winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

Delphi indy 10tidftp中的directorylisting使用

Delphi命令行窗口实现9*9乘法表

Delphi 调用dos nbtstat 并获得结果

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



打赏

取消

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

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

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

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

评论

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