Параметры

← →
hater (2008-07-08 08:31) [0]

Добрый день! Подскажите пожалуйста как можно передать процедуре параметр любого типа а потом в процедуре определять тип ? Если можно не большой примерчик, буду очень благодарен. Спасибо.

← →
Anatoly Podgoretsky © (2008-07-08 08:35) [1]

const array of const

← →
Loginov Dmitry © (2008-07-08 08:38) [2]

> а потом в процедуре определять тип

TVarRec(MyArray[Index]).VType

← →
hater (2008-07-08 09:22) [3]

Мастера спасибо огромное, если не трудно, не могли бы вы подсказать как определить тип даты? Числа и строки получилось определить, вот с датой не могу разобраться.

case TVarRec(params[i]).VType of
vtInteger, vtInt64 :
ShowMessage(IntToStr(Params[i].VInteger));
vtAnsiString :
ShowMessage(Params[i].VPChar);
else
ShowMessage("Не определен");
end;

← →
Anatoly Podgoretsky © (2008-07-08 09:29) [4]

> hater (08.07.2008 9:22:03) [3]

vtExtended

← →
hater (2008-07-08 10:16) [5]

> vtExtended

Ой, А я так определял дробные числа ...

← →
engine © (2008-07-08 10:23) [6]

> [5] hater (08.07.08 10:16)

Почитай в справке про тип TDateTime

← →
Тын-Дын © (2008-07-08 10:37) [7]

> hater (08.07.08 08:31)
> Добрый день! Подскажите пожалуйста как можно передать процедуре
> параметр любого типа а потом в процедуре определять тип
> ? Если можно не большой примерчик, буду очень благодарен.
> Спасибо.

Может быть будет удобнее кроме самой переменной передавать и тип праметра в процедуру?

← →
hater (2008-07-08 10:43) [8]

> Может быть будет удобнее кроме самой переменной передавать
> и тип праметра в процедуру?
>

Нет, так не удобно будет. Вот сейчас голова кипит, немогу грамотно определить дату передали или дробное число. :(

> Нет, так не удобно будет. Вот сейчас голова кипит, немогу
> грамотно определить дату передали или дробное число. :(

Коль она (процедура) такая всеяднвя, не все ли ей равно? Дто она делает с этим ворохои разношерстных данных?

var
MyParameter: Variant;
..
MyParameter := Now;

case TVarData(MyvarData).VType of
..
varDate: ShowMessage(DateTimeToStr(MyParameter));

> hater (08.07.2008 10:16:05) [5]

Ну правильно делал.

> hater (08.07.2008 10:43:08) [8]

А какая проблема?
Просто используй соответствующие типы - для данного случая нужен variant

Параметры Найти похожие ветки