Передача в функцию параметра со многими типамиё

[borispnz]

Есть 2 разных объекта с похожими методами, например, O1:Type1 и O2:Type2 (напр., SqlDataset из вкладки DbExpress и Dbf стороннего разработчика)
O1.Add, O1.Value
O2.Add, O2.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 Извините, если вопрос поднимался, но что-то после многочасового копания в Гугле так и не нашел. Вероятно, руки кривые :-)

[Vasuha]

А к примеру:

function TForm1.proba(o: TObject): boolean;
begin
//
if o is TSQLDataSet then
ShowMessage('Обрабатываем TSQLDataSet');
end;

[borispnz]

Цитата: Сообщение от Vasuha А к примеру: function TForm1.proba(o: TObject): boolean; begin // if o is TSQLDataSet then ShowMessage('Обрабатываем TSQLDataSet'); end;

Т.е. потом писать нечто вроде
if o is TSQLDataSet then
(o as TSQLDataSet).value
else if o is TDbfDataSet then
(o as TDbfDataSet).value

Так? И чем отличается от overload? И потом - что делать, если передается несколько параметров? Например, Sql и Dbf работают попеременно как источник, так и получатель.
FunctToDbf(SqlSource, DbfTarget)
FunctToSql(DbfSource, SqlTarget)
Именно это примерно мой случай, только еще сложнее

[Steve Bloom]

Цитата: Сообщение от borispnz И потом - что делать, если передается несколько параметров? Например, Sql и Dbf работают попеременно как источник, так и получатель

if (o1 is TSQLDataSet) and (o2 is TDbfDataSet) then FunctToDbf(SqlSource, DbfTarget)
else if (o1 is TDbfDataSet) and (o2 is TSQLDataSet) then FunctToSql(DbfSource, SqlTarget)

[johnnyboy]

Если сами объекты однотипные (предок один), то зачем изврат?
В твоем примере:
Funct(O: Type)
O.Add()
Result := O1.Value;

Type - Предок обоих классов (только у предка тоже должен быть этот метод, а потомки его наследовать, и все у тебя получится, в случае датасетов - у них общий TDataset, так в функции и пиши:

Function FCount(Dataset: TDataset)
Begin
Result := Dataset.Fields.Count;
End;

F1 := FCount(DbfDataset1);
F2 := FCount(SQLDataset1);