让edit只接收数字.txt

大量Delphi开发资料

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;