绝菜问题若干II

Question

1.Delphi中有没有类似于VB中的Isnumeric()函数.
2.Delphi中有没有什么方法实现VB中的控件数组.
3.动态创建的控件怎么接收他的事件.

Answer 1

1. VarIsNumeric
2. 动态创建。 Controls:array[0..100] of TControl;
3. 比如 TEdit 的 OnClick 事件, TEdit.OnClick=MyEditClick; //MyEditClick 是你要添加的一个方法，其形式与 OnClick 要求的一致

Answer 2

VarIsNumeric这个函数我用不太明白，假如想判断edit1里输入的是否为数值
我用这段代码总返回‘０’怎么回事？
showmessage(booltostr(VarIsNumeric(edit1.Text)))

Answer 3

1 这种简单的自己写代码也可以，去找函数控件什么的更费时间Function  Isnumeric(var s:string):boolean;
const number:string='1234567890';
var i:integer;
begin
  result:=false;
  for i:= 1 to Length(s) do
    if not (s[i] in number) then
      exit;
  result:=true;
end;

Answer 4

in number　是个函数吗？这个程序运行不了。if not (s[i] in number) then有错。
我对动太创建控件不太了解，能不能帮我详细写一下过程。
有谁知道那能下到Delphi书的？

Answer 5

www.downstar.com/book
中有不少DELPHI的书
去下吧！
^o^

Answer 6

我用Tedit.create创建Edit控件怎么不显示。