菜鸟求助:在EDIT中编辑时如何在按下"-"(#$2D)时把其直接转换成"～"(#$A1AB)?

[fengzsz]

在EDIT中编辑时如何在按下"-"(#$2D)时把其直接转换成"～"(#$A1AB)?
例如:输入 '0-1',在Edit中显示为'0～1'

[postren]

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '-' then
Key := '~';
end;

[postren]

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '-' then
Key := '~';
end;

[postren]

Sorry, 看错了符号
用如下代码试试

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
S: string;
iPos: Integer;
begin
if Key = '-' then
begin
Key := #0;
S := Edit2.Text;
iPos := Edit2.SelStart;
Insert('～', S, iPos + 1);
Edit2.Text := S;
Edit2.SelStart := iPos + 2;
end;
end;

[fengzsz]

谢谢小虫!