2012年3月24日
摘要: myclass:TComponentClass; myojb:TObject;beginRegisterClasses([TPersistentClass (Self.ClassType )]); myclass:=TComponentClass( GetClass( Self.ClassName) ); if myclass=nil then begin ShowMessage('fuck'); Exit; end; myojb:=myclass.Create(Application); TForm(myojb).ShowModal; 阅读全文
posted @ 2012-03-24 00:09 gaolover 阅读(122) 评论(0) 推荐(0) 编辑
  2012年3月22日
摘要: Dec //将例程中的参数值递减1或一个特定的值,其中特定值可在第二个可选参数中定义Inc //将例程中的参数值增加1或一个特定的值Odd //如果参数为奇数返回真Pred //根据参数在其数据类型定义中的序列,返回参数值的前驱值Succ //返回参数值的后继值Ord //返回参数值在其数据类型值集合中的序号Chr //取得 AscII 码对应的字符Low //返回参数对应的有序数据类型的最小取值High //返回参数对应的有序数据类型的最大取值SizeOf //取得类型或对象所占的内存字节数 阅读全文
posted @ 2012-03-22 23:52 gaolover 阅读(141) 评论(0) 推荐(0) 编辑
摘要: SameText 返回 Boolean;CompareStr,CompareText 返回 Integer;CompareStr 区分大小写CompareText 不区分大小写 阅读全文
posted @ 2012-03-22 23:51 gaolover 阅读(261) 评论(0) 推荐(0) 编辑