Tad писал(а):
А что эта у тебя выдаст в Label ?Когда нет ключа, то выдает пустую строку. Интересно, а что должен выдавать Null при конвертации его в string
Tad писал(а):
И не смотри на коды doWriteТы понимаешь, что ты меня запарил, перегрелся что-ли -- где я смотрел на коды doWrite
function THIRegistry.ReadValue;
var value:string;
begin
dtNull(val);
RootKey := _hkey[_prop_HKey];
if not OpenKey(ReadString(_Data,_data_Key,_prop_Key),false,KEY_READ) then
begin
Result := 0;
exit;
end
else Result := 1;
value := ReadString(_Data,_data_Value,_prop_Value);
case dtypes[_prop_DataType] of
data_int : dtInteger(val,ReadInt(Value,Result));
data_str : dtString(val,ReadStr(Value,Result));
data_real: dtReal(val,ReadFloat(Value,Result));
data_stream: dtStream(val,_ReadStream(Value,Result));
end;
CloseKey;
end;
Поиск
Друзья
Администрация