字符替换问题

Question

请问如何把一个包含汉字 字母 数字的字符串里的‘A’‘B’‘C’‘D’‘E’..'Z'分别替换为'AAA' 'BBB' 'CCC' 'DDD' 'EEE'..'ZZZ'? 请高手帮忙写一个函数

Answer 1

AnsiReplaceStr可以替换字符串中的字符

Answer 2

function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);

Answer 3

var
  sOldPt:char;
  str:string;
begin
  for sOldPt:='A' to 'Z' do
    str:=StringReplace(str,sOldPt,sOldPt+sOldPt+sOldPt,[rfReplaceAll]);
end;

Answer 4

str:string;str:='abcdefg';
showmessage(str[0]+','+str[1]);// a,b

Answer 5

字符串数组常量?
type
const_str:array [0..2] of PChar=('A','B','C');

Answer 6

type
const_str:array [0..2] of PChar=('A','B','C');
这个也是声明？？？？