Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

Помогите дописать компонент   Найти похожие ветки 

 
Ferrarium   (2002-05-13 15:32) [0]

В компоненте есть код для работы со сторонним компонентом (не входящим в стандартную оставку). Как надо написать код чтобы если компонент установлен код относящийся к нему компилировался, а если нет, то нет.
пример:
function DataSet_Open(DataSet:TDataSet):boolean;
begin
// как выкинуть этот код прикомпиляции компонента если
// не установлен TOraQuery
if DataSet is TOraQuery
then
begin
Result:=(DataSet as TOraQuery).Opening;
Exit;
end;
if DataSet is TQuery
then Result:=(DataSet as TQuery).Open
else Result:=DataSet.Open;
end;


 
Игорь Шевченко ©   (2002-05-13 16:57) [1]

День добрый,

Использовать не IS и AS а подобные им функции по имени класса,
например, аналог IS

function HSClassBasedOn (Value: TClass; const Name : String) : Boolean;
begin
Result := false;
while Value <> nil do begin
if SameText(Value.ClassName, Name) then begin
Result := true;
Exit;
end;
Value := Value.ClassParent;
end;
end;

if HSClassBasedOn(DataSet, "TOraQuery") then
...

После это выбираете (опять же, по имени) адрес метода Opening,
выполняете его и вуаля!

С уважением,



Страницы: 1 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-73144
Ferrarium
2002-05-13 15:32
2002.05.23
Помогите дописать компонент


1-73131
Explorer
2002-05-13 13:18
2002.05.23
QReport


1-73291
Riko
2002-05-11 17:13
2002.05.23
Командная строка...


1-73184
Serg2002
2002-05-14 05:01
2002.05.23
попытка №2


14-73354
fliz
2002-04-12 11:58
2002.05.23
Посоветуйте книги, ссылки и т.д. для начала изучение Java.