让edit只接收数字.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 18 行

procedure TfOilAppend.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> #8 then begin
    if ((Key < '0') or (Key > '9')) and (Key <> '.') then
      Key := chr(0);
    if (Key = '.') and (AnsiContainsText(Edit3.Text ,'.')) then
      Key := chr(0);
  end;
end;


procedure TfOilAppend.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> #8 then
    if (Key < '0') or (Key > '9') then
      Key := chr(0);
end;