Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
ВнизПомогите дописать компонент Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c