TDatabase в TQuery

lvi · August 2005

В стандартном варианте нет описания доступа из 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

Подскажите , как это делать ???????

ShaginAA · August 2005

lvi написал:

if ClassType = TQuery then
begin
if PropName = 'PARAMCOUNT' then
Result := TQuery(Instance).ParamCount
-> else if PropName = 'DATABASE' then
-> Result := TQuery(Instance).DataBase
end

Сделай...
if ClassType = TQuery then
begin
if PropName = 'PARAMCOUNT' then
Result := TQuery(Instance).ParamCount
else if PropName = 'DATABASE' then
{!!!!!!!!!!!!!!!!!!!!!--->} Result := Integer(TQuery(Instance).DataBase)
end

все равно указатель передаешь

lvi · August 2005

Спасибо - млин - ведь делал же ужетак , но в голове от работы полный срачь. ЕЩЁ РАЗ СПАСИБО.

TDatabase в TQuery

Комментарии

Оставить комментарий