delphi函数
来源:互联网 发布:手机怎么登陆淘宝卖家 编辑:程序博客网 时间:2024/04/30 08:08
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;
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;
- delphi 函数
- Delphi函数
- delphi函数
- delphi 函数
- delphi函数
- delphi函数
- Delphi函数
- delphi函数参考手册
- delphi函数参考手册
- Delphi内部函数大全
- delphi中的split函数
- delphi中的split函数
- Delphi中的SendKeys函数
- delphi 常用函数
- Delphi字符串函数大全
- Delphi中的SendKeys函数
- Delphi常用函数
- Delphi函数大全
- android 中android:id="@android:id/list"与android:id="@+id/picture"
- h:outputText (escape属性)输出HTML标签
- 如何防止代码腐烂
- Fedora搭建服务器,DHCP+TFTP+FTP+PXE启动安装CentOS
- 11款实用的一句话网站设计代码
- delphi函数
- Android网络服务开发之http编程
- gen_server, trap_exit和terminate/2
- VC9.0,VC10.0编译64位STLport5.2.1和Boost
- A记录
- GIS三维地景仿真设计之(一)基础架构
- Oracle10.2.0.1 For CentOS6.0 安装文档(七)
- 什么叫做“火到爆”?看看aiwi就知道
- Eclipse 使用配置记录