Процедура сравнения

FullKettle
Дата: 26.11.2007 14:17:03
Хочу написать функцию для сравнения двух значений . В параметрах задается два значения, тип может быть строковый или число. Какой тип задать для параметра?
function Compare(Compare1, Compare2: ...): byte;
var
ret: byte;
begin
ret:=0;
if Compare1 = Compare2 then ret:= 1;
Result := ret;
end;
miksoft
Дата: 26.11.2007 14:21:17
варианты:
1) написать две отдельных функции, одну для строк, другую для чисел.
2) использовать тип Variant.
3) Использовать свои типы, аналоги Variant-а.
Johnmen
Дата: 26.11.2007 14:21:31
Написать перегружаемую функцию.
DimaBr
Дата: 26.11.2007 14:26:20
VarSameValue
CherniyMak
Дата: 26.11.2007 14:43:34
Так тоже потянет
result := Byte(Compare1 = Compare2)
miksoft
Дата: 26.11.2007 15:19:46
CherniyMak
Byte(Compare1 = Compare2)
А если это писать вместо вызова функции, то и сама функция не нужна :)