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 录音制作 wav 文件

Delphi 主程序与dll之间的全局变量问题

Delphi 获取内核地址的简单方法

Delphi jpeg图片压缩

Delphi {$pointermath on} 方便指针操作的编译指令

Delphi record,两种声明方式

Delphi unigui 获取当前ip

Delphi判断电脑连接到 internet 了吗?

Delphi中如何用一个按钮控制开与关两个状态

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

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



打赏

取消

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

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

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

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

评论

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