[Fun-Tool] EKG-PC-Monitor

[turboPASCAL]

@FB

Delphi-Quellcode:

procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
  // oder :
  if Ord(Key) in [0..9, VK_BACK] then Key := #0;
  

//  if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
//     (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
//     (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
//  Key := #0;
end;

Besser ?