T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
完颜康哪里去了？你要问什么问题？
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
这还给分
B
beta
Unregistered / Unconfirmed
GUEST, unregistred user!
tseug 大叔就是有钱[
]
]
D
dhycq
Unregistered / Unconfirmed
GUEST, unregistred user!
有分？！
完
完颜康
Unregistered / Unconfirmed
GUEST, unregistred user!
var
a: PTypeInfo;
begin
a := TypeInfo(TEdit);
showmessage(a.Name);
showmessage(Inttostr(VarType(a.Kind)));
end;
为什么总是显示3？
a: PTypeInfo;
begin
a := TypeInfo(TEdit);
showmessage(a.Name);
showmessage(Inttostr(VarType(a.Kind)));
end;
为什么总是显示3？
完
完颜康
Unregistered / Unconfirmed
GUEST, unregistred user!
现在世道变了：）））
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
a: PTypeInfo;
begin
a := TypeInfo(TEdit);
showmessage(a.Name);
ShowMessage(IntToStr(Ord(a.Kind)));
//应该这样！
showmessage(Inttostr(VarType(a.Kind))); //这个等价于VarType(0), 当然呵呵
end;
var
a: PTypeInfo;
begin
a := TypeInfo(TEdit);
showmessage(a.Name);
ShowMessage(IntToStr(Ord(a.Kind)));
//应该这样！
showmessage(Inttostr(VarType(a.Kind))); //这个等价于VarType(0), 当然呵呵
end;
J
jinmen
Unregistered / Unconfirmed
GUEST, unregistred user!
牛
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
J
jinmen
Unregistered / Unconfirmed
GUEST, unregistred user!
既然是高手，请帮我看看，我会加分的。