请问大家
Delphi中是否有实现php的strtr函数同样功能的函数?如果没有,能否帮忙写一个函数实现同样功能呢?急求,非常感谢!!!
Delphi中是否有实现php的strtr函数同样功能的函数?如果没有,能否帮忙写一个函数实现同样功能呢?急求,非常感谢!!!
解决方案 »
- 急,在线等,ADO连接EXCEL2007,EXCEL列超过255后读不出来如何解决?
- stringgrid显示数据表所有数据
- 初学Delphi:TreeView + ImageList 问题
- 谁能给个FastReport3使用自定义变量的例子?
- 菜鸟问题:请大侠给我解释一下啥是DCOM?为啥要用DCOM?
- 大家好,我想作一个类似于photoshop那样的图形处理软件,有兴趣的进来聊撩
- 哪位朋友有CheckCombobobox控件,给小弟email一份或告知下载地址,本人将感激涕零!
- 用olecontainer如何打开远端服务器上的文件,谁能解决有300分。
- 如何在win98下注册SQLDMO.dll?(500分),当然是问题解决后,否则only-100分
- 关于多条件查询的问题
- ddelphi7,ORACLE数据库中ID值已经超过9位数字,如何处理。。。
- 访问外地服务器问题(非局域网访问)
楼主搜搜看Pos或者是FastPos
<?php
echo strtr("Hilla Warld","ia","eo");
?>输出:Hello World
例子 2
<?php
$arr = array("Hello" => "Hi", "world" => "earth");
echo strtr("Hello world",$arr);
?>输出:Hi earth
函数外加循环语句和数组,写成一个Delphi的函数。
我也是这么想的,但是得写个函数,小可刚学习Delphi不久,还不太熟悉,能否请仁兄提供一段示例代码参考学习?谢谢!!
var
tmp:string;
s: array [0..4] of string;
st:tstringlist;
begin
St:=TStringList.Create;
ExtractStrings([','],[],PChar(sa),St);
s[0]:=st.Strings[0];
s[1]:=st.Strings[1];
ExtractStrings([','],[],PChar(sb),St);
s[2]:=st.Strings[2];
s[3]:=st.Strings[3];
tmp:=stringreplace(Form1.edit1.text,s[0],s[2],[rfReplaceAll]);
result:=stringreplace(tmp,s[1],s[3],[rfReplaceAll]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=srp(Edit2.text,Edit3.Text);
end;有个Q群的朋友写了这么一段代码提供思路,发布出来供参考,呵呵。