Question

delphi中用什么方法捕获修改edit框中的某个字符？

我要实现若发现edit框中字符含有“.”---只是含有，不一定只有“.”， 则edit.text中去掉".",其他字符保留。

Answer 1

在Edit的OnExit事件里加上你的判断就行了
procedure TForm1.Edit1Exit(Sender: TObject);
var
i : integer;
tmp : string;
begin
tmp := edit1.Text;
i := pos('.',tmp);
while i <> 0 do
begin
delete(tmp,i,1);
i := pos('.',tmp);
end;
edit1.Text := tmp;
end;