text框中如何替换指定位置的字符为另外一个？

Question

有没有直接的函数可以做？

Answer 1

a:=10;
edit1.text[10] := 'a';

Answer 2

a:=10;
edit1.text[a] := 'a';

Answer 3

Edit1.SelStart:=1;
Edit1.SelLength:=1;
Edit1.SelText:='a';

Answer 4

晕，原来答的居然不行，汗啊procedure TForm1.Button1Click(Sender: TObject);
var
        mStr: string;
begin
        mStr := Edit1.Text;
        mStr[2] := 'a';
        Edit1.Text := mStr;
end;