| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правильно составить код для неявной передачи типов? [D7, WinXP]
Aleksandr. © (2004-08-10 15:55:00)В базовом классе объявляется метод:
function Compare(Item1, Item2: TObject): Integer;
У потомков этого класса в этот метод могут быть переданы и string и integer, и потомки TObject, соответственно, хотелось бы как-кто сделать этот метод универсальным, чтобы в него можно было передавать данные любых типов, и в нем сделать хотя бы определение по трем категориям: строка, целое, объект, и на первые два повесить стандартные операции сравнения. Как это можно сделать? Не напишешь же:
if Item1 IS String
Sun bittern (2004-08-10 16:02:00) [1](X: Array of const)
for I := Low(X) to High(X) do
case X.VType of
...
Ega23 (2004-08-10 16:01:00) [2]Item1, Item2 : Pointer не пойдёт?
Sandman25 (2004-08-10 15:58:00) [3]Сделать 3 функции с разными именами
| |
