Delphi 字符串变形替换

本文整理自网络，侵删。

 

function RemoveAcento(aText : string) : string;
const
  ComAcento = '1234567890';
  SemAcento = 'abcdefghij';
var
  x: Cardinal;
begin;
  for x := 1 to Length(aText) do
    if (Pos(aText[x], ComAcento) <> 0) then
      aText[x] := SemAcento[ Pos(aText[x], ComAcento) ];
  Result := aText;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=RemoveAcento('123123');    //结果abcabc
end;
 

相关阅读 >>

Delphi如何获取硬盘所有的分区容量

Delphi getcurrentdir 获取当前文件夹

Delphi ticon保存ico文件时失真的解决办法

Delphi获取mac地址

Delphi 简单方法搜索定位treeview项

Delphi idhttp post 普通提交乱码处理

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi多线程程序示例（最简单的多线程）

Delphi android adb usb上读取设备信息

Delphi application.title在win7下失效了？

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

转载请注明出处：木庄网络博客 » Delphi 字符串变形替换