89-138-14-22.bb.netvision писал(а):
Почему у меня все работает тип-топ?Я тебя спросил, что выдает моя схема при нажатии на кнопку
------------ Дoбавленo:
89-138-14-22.bb.netvision писал(а):
DataType=0 // это что Data.Data_type<>data_int ???????????И каким это боком относится к параметрам данных типа TData
Когда это не что иное, как индекс в списке свойст
DataType=Тип считываемых данных|4|1|Integer,String,Real,Stream
------------ Дoбавленo:
Вот как это реализовано в компоненте Registry
const
dtypes:array[0..3] of byte = (data_int,data_str,data_real,data_stream);
---
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;
Откуда следует, что DataType=0 есть dtypes[0]=data_int
Поиск
Друзья
Администрация