码迷,mamicode.com
首页 > 其他好文 > 详细

RegDataToDataType

时间:2017-04-07 15:47:32      阅读:154      评论:0      收藏:0      [点我收藏+]

标签:else   int   odata   blog   str   val   rdb   rds   type   

function RegDataToDataType(Value: TRegDataType): Integer;
begin
  case Value of
    rdString: Result := REG_SZ;
    rdExpandString: Result := REG_EXPAND_SZ;
    rdInteger: Result := REG_DWORD;
    rdBinary: Result := REG_BINARY;
  else
    Result := REG_NONE;
  end;
end;

 

RegDataToDataType

标签:else   int   odata   blog   str   val   rdb   rds   type   

原文地址:http://www.cnblogs.com/CodeGear/p/6678306.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!