标签: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;
标签:else int odata blog str val rdb rds type
原文地址:http://www.cnblogs.com/CodeGear/p/6678306.html