Как передать в функцию параметр разных типов

[borispnz]

Есть 2 разных объекта с похожими методами, например, O1:Type1 и O2:Type2 (напр., SqlDataset из вкладки DbExpress и Dbf)

O1.Add, O1.Value 
O1.Add, O1.Value

Как передать в функцию параметр(-ы) с заранее неизвестным типом?Примерно так

Funct(O: Type)
 O.Add()
 Result := O1.Value

x := Funct(O1)
x := Funct(O2)

Понятно, что можно использовать overload

Funct(O: Type1); overload
Funct(O: Type2); overload

Но это не выход - слишком много разнородных объектов по типам и количеству параметров может быть. Чувствую, что в направлении pointer копать надо. Но вот как? Заранее надеюсь на помощь

PS Извините, если вопрос поднимался, но что-то после многочасового копания в Гугле так и не нашел. Вероятно, руки кривые :-)

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор
Исправился. Но вообще-то у меня не код. Скорее псевдокод для иллюстрации

[maxionans]

Если у классов объектов, с которыми тебе нужно работать, имеется общий предок, то объявляй функцию, указывая этого общего предка в качестве типа параметра. То есть, наример, TStringList имеет предком класс TStrings и какой-нибудь TListBoxStrings тоже имеет предком TStrings. И для работы с объектами обоих типов мы объявляем такую процедуру:

procedure DoSomething(AStrings : TStrings);
begin
  // blablabla
end;

и можем передавать ей в качестве параметра объект любого класса, унаследованного от TStrings.

[JTG]

Open array parameters

Это работает медленнее, чем вызов перегруженной функции, так что злоупотреблять такими выкрутасами не стоит.

[пауэрлифтинг]

использовать тип variant

[BOBAH13]

int DoSomeHere(int a, ...);

intDoSomeHere(int a, ...)
{
	va_list args;
	va_start(args, a);
	// char param1 = va_arg(args, char);
        // int param2 = va_arg(args, int);
	va_end(args);
}

[borispnz]

Сообщение от maxionans

Если у классов объектов, с которыми тебе нужно работать, имеется общий предок, то объявляй функцию, указывая этого общего предка в качестве типа параметра....

Вообще-то интересно, надо попробовать. Спасибо (кнопочку не нашел). А что делать, если объекты принципиально разные?

Сообщение от пауэрлифтинг

использовать тип variant

Для объектов моего класса (напр.,SqlExpr) неприменим. Variant используется только для простых типов. (Совет: прежде чем подсказать, попробуй сам на живом Delphi; многие советы отпадут автоматически)

Сообщение от BOBAH13

int DoSomeHere(int a, ...);

intDoSomeHere(int a, ...)
{
	va_list args;
	va_start(args, a);
	// char param1 = va_arg(args, char);
        // int param2 = va_arg(args, int);
	va_end(args);
}

Можно подробнее? Ничего не понял