是检测数据字段的类型、长度的问题

Question

各位：可有通用的函数啊就是检测数据字段的类型等的，如：有个edit框，是int 长整型的 当时当录入时怎么控制他的长度啊，我现在没有控制他可以输入好长，然后报错；郁闷，我打算在edit的exit事件中控制，怎么控制啊？还有如果时float类型的，又怎么控制啊，郁闷！给分，谢谢啊

Answer 1

edit框里都是string类型的,看你怎么转了

Answer 2

if Length(Edit1.Text)<>3 then//只能输入三位
begin
  .......
end;
不知道是不是你所说的！
试试吧

Answer 3

if length(trim(edit1.text))>8 then

Answer 4

是这样的，我界面有个edit框 录入的数据是资金  货币型的 ；如果不控制你可以输入，当你录入11111111111111111111111111111111111111111111时就出错，我想控制用户的录入，只让他录的数据在货币型的范围之内
怎么弄啊？？

Answer 5

货币：=strtofloat(trim(edit.text));

Answer 6

在Edit1的 OnKeyPress事件中：
  if not (key in ['0'..'9','.',#8]) or (length(edit1.Text)>8) then
    key := #0;   //限制只能输入0到9的数字，限制长度小于8。

Answer 7

function  TForm1.CheckInt(Str : String;keychar : char) : boolean;
begin
  if (keychar in ['0'..'9',#8]) and (length(edit1.Text)<=8) then
    Result:=true
  else
    result:=false;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not CheckInt(edit1.Text,key) then
     key:=#0;
end;