如何利用RTTI对组件的布尔型属性进行赋值，救命啊

用SetOrdProp??  
  TTypeKind中没定义布尔型啊  
   
  请教大家丫！ 问题点数：50、回复次数：5Top

1 楼oracle_lover（数据库情人）回复于 2003-11-03 09:13:24 得分 5

布尔型用LongInt赋值；uses   TypInfo;  
   
  例子：  
  var  
      Value:   Longint;  
  begin  
    ...  
    Value   :=   LongInt(CheckBox1.Checked);  
    SetOrdProp(Component,   PropInfo,   Value);  
    ...  
  end;Top

2 楼StaticFields（举杯浇愁愁更愁）回复于 2003-11-04 21:16:37 得分 40

不是这样的  
  用任何整数类型都可以对布尔型赋值  
  其实布尔型是枚举型  
  在TTypeKind中有枚举型的啊Top

3 楼oracle_lover（数据库情人）回复于 2003-11-06 09:11:47 得分 3

布尔型分为：  
    1字节布尔型     Boolean,   ByteBool  
    2字节布尔型     WordBool  
    4字节布尔型     Bool,   LongBool  
   
  所以用Longint给布尔型是最安全的Top

4 楼szlifei（小李飞哥）回复于 2003-11-08 22:20:16 得分 2

var  
  vpropertyname,VpropertyValue:string;  
  begin  
  .....  
                      if   HasProperty(sender,vpropertyname)   then  
                          SetPropvalue(sender,vpropertyname,VpropertyValue);  
  Top

5 楼Magnus（小楼一夜听春雨）回复于 2003-11-14 09:14:53 得分 0

StaticFields(静电场)说的是正确的Top

相关问题

• 赋值
• 布尔型
• vpropertyvalue
• vpropertyname
• longint
• setordprop
• ttypekind
• 举型
• sender
• begin

• 帖主：Magnus
• oracle_lover
• StaticFields
• oracle_lover
• szlifei

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载