如何设定一个EDIT只能输入数字或者字母

Question

回车的键是#13
有没有人有介绍这些知识的文章介绍

Answer 1

var
  b:byte;
  c:char;c:='a';
b:=ord(c);

Answer 2

判断输入是否为数字函数：function Tsarch.isInteger(s: string): boolean;
var
   i:integer;
begin
   i:=1;
   if length(s)=0 then
   begin
      result:=false;
      exit;
   end;
   while i<=length(s) do
   begin
      if (isNumeric(s[i])=false) then
      begin
         result:=false;
         exit;
      end;
      i:=i+1;
   end;
   result:=true;

Answer 3

function Tsarch.isInteger(s: string): boolean;
var
   i:integer;
begin
   i:=1;
   if length(s)=0 then
   begin
      result:=false;
      exit;
   end;
   while i<=length(s) do
   begin
      if (isNumeric(s[i])=false) then
      begin
         result:=false;
         exit;
      end;
      i:=i+1;
   end;
   result:=true;
end; //少了一个end;

Answer 4

procedure TDBConnFrm.editKeyPress(Sender: TObject; var Key: Char);
begin
  //中能输入'0'..'9'或'A'..'Z'OR 'a'..'z'和退格
  if not (Key in ['0'..'9','A'..'Z','a'..'z','.',#8]) then 
    begin
      Key := #0;
      MessageBeep(1);
    end
  //下以面限制只能输入一个小数点
  else if (Pos('.',edit.Text) <> 0) and (Key = '.') then
    begin
      Key := #0;
      MessageBeep(1);
    end;
end;