Как правильно составить код для неявной передачи типов?

← →
Aleksandr. (2004-08-10 15:55) [0]

В базовом классе объявляется метод:
function Compare(Item1, Item2: TObject): Integer;
У потомков этого класса в этот метод могут быть переданы и string и integer, и потомки TObject, соответственно, хотелось бы как-кто сделать этот метод универсальным, чтобы в него можно было передавать данные любых типов, и в нем сделать хотя бы определение по трем категориям: строка, целое, объект, и на первые два повесить стандартные операции сравнения. Как это можно сделать? Не напишешь же:
if Item1 IS String

← →
Sandman25 © (2004-08-10 15:58) [1]

Сделать 3 функции с разными именами

← →
Ega23 © (2004-08-10 16:01) [2]

Item1, Item2 : Pointer не пойдёт?

(X: Array of const)

for I := Low(X) to High(X) do
case X.VType of
...

Как правильно составить код для неявной передачи типов? Найти похожие ветки