简单问题

Question

procedure Tform1.editKeyPress(Sender: TObject; var Key: Char);
begin
if  (key>#47) and (key<#58) then
begin
key:=#0;
showmessage('你输入了无效字符!');
exit;
end;
end;

Answer 1

还有小键盘procedure Tform1.editKeyPress(Sender: TObject; var Key: Char);
begin
if  ((key>#47) and (key<#58))or((key>#96) and (key<#105)) then
begin
key:=#0;
showmessage('你输入了无效字符!');
exit;
end;
end;

Answer 2

用maskedit会更好些，编辑它的editmask属性可以设置你要输入的形式。试试看，也许有好的发现呢！：）

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) < 127  then
0A  begin
    ShowMessage('输入错误！');
    Key := #0;
  end;
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————