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 跨平台的，在fmx中读取icon文件的每一帧到bitmap

Delphi 调用ie隐藏的命令

Delphi 任务管理器 获取窗口标题 获取窗口图标

Delphi 用ini记录combobox的itemindex

Delphi获取exe文件版本信息的函数

Delphi opendialog设置默认打开路径

Delphi cxgrid 通过字段名取得列

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码

Delphi tstringlist indexof find 查找字符串

Delphi tdictionary 简单用法

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

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