Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.10;
Скачать: CL | DM;

Вниз

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

 
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]


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


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


 
ЮЮ ©   (2008-07-08 10:51) [9]

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


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


 
Сергей М. ©   (2008-07-08 10:53) [10]

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

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


 
Anatoly Podgoretsky ©   (2008-07-08 11:40) [11]

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

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


 
Anatoly Podgoretsky ©   (2008-07-08 11:41) [12]

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

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



Страницы: 1 вся ветка

Текущий архив: 2008.08.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
9-1172434704
Mr.Vlad
2007-02-25 23:18
2008.08.10
Изображение с прозрачным фоном


6-1191845923
Greench
2007-10-08 16:18
2008.08.10
Интернет-пейджер


2-1208861820
DJ Kondakov
2008-04-22 14:57
2008.08.10
Окно поверх всех окон


15-1211482317
AEN
2008-05-22 22:51
2008.08.10
Кто нибудь играл в Dune4?


15-1214370815
Djulia
2008-06-25 09:13
2008.08.10
Help!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский