TDatabase в TQuery
В стандартном варианте нет описания доступа из TQuery в TDataBase
Вот участок исходника
AddClass(TSession, 'TComponent');
AddClass(TDatabase, 'TComponent')
AddClass(TBDEDataSet, 'TDataSet');
AddClass(TDBDataSet, 'TBDEDataSet');
with AddClass(TQuery, 'TDBDataSet') do
begin
AddMethod('procedure ExecSQL', CallMethod);
AddMethod('function ParamByName(const Value: string): TParam', CallMethod);
AddMethod('procedure Prepare', CallMethod);
AddProperty('ParamCount', 'Word', GetProp, nil);
end;
Я пытаюсь добавить проперти
-> AddProperty('DataBase', 'TDataBase', GetProp, nil);
И сдесь function TFunctions.GetProp(Instance: TObject; ClassType: TClass;
const PropName: String): Variant;
добавляю
if ClassType = TQuery then
begin
if PropName = 'PARAMCOUNT' then
Result := TQuery(Instance).ParamCount
-> else if PropName = 'DATABASE' then
-> Result := TQuery(Instance).DataBase
end
Не хочет приводить TDataBase к variant
Подскажите , как это делать ???????
Вот участок исходника
AddClass(TSession, 'TComponent');
AddClass(TDatabase, 'TComponent')
AddClass(TBDEDataSet, 'TDataSet');
AddClass(TDBDataSet, 'TBDEDataSet');
with AddClass(TQuery, 'TDBDataSet') do
begin
AddMethod('procedure ExecSQL', CallMethod);
AddMethod('function ParamByName(const Value: string): TParam', CallMethod);
AddMethod('procedure Prepare', CallMethod);
AddProperty('ParamCount', 'Word', GetProp, nil);
end;
Я пытаюсь добавить проперти
-> AddProperty('DataBase', 'TDataBase', GetProp, nil);
И сдесь function TFunctions.GetProp(Instance: TObject; ClassType: TClass;
const PropName: String): Variant;
добавляю
if ClassType = TQuery then
begin
if PropName = 'PARAMCOUNT' then
Result := TQuery(Instance).ParamCount
-> else if PropName = 'DATABASE' then
-> Result := TQuery(Instance).DataBase
end
Не хочет приводить TDataBase к variant
Подскажите , как это делать ???????
Комментарии
if ClassType = TQuery then
begin
if PropName = 'PARAMCOUNT' then
Result := TQuery(Instance).ParamCount
else if PropName = 'DATABASE' then
{!!!!!!!!!!!!!!!!!!!!!--->} Result := Integer(TQuery(Instance).DataBase)
end
все равно указатель передаешь