Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

Передача параметров в функцию 


Фэ   (2002-03-02 21:32) [4]

Насчет array of const согласен, но мороки больше

procedure DoWithArgs(Args: array of const);
var
I: Integer;
begin
for I := Low(Args) to High(Args) do
begin
case Args[I].VType of
vtInteger: //Args[I].VInteger;
vtBoolean: //Args[I].VBoolean then
vtChar: //Args[I].VChar;
vtExtended://Args[I].VInteger;
vtString: //Args[I].VString^;
vtPointer: //Args[I].VPointer;
vtPChar: //Args[I].VPChar;
vtClass: //Args[I].VClass.ClassName;
vtObject: //Args[I].VObject.ClassName;
//..
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.022 c
4-57564           Serhy                 2002-01-16 01:57  2002.03.18  
Интересное в ShellExecute


1-57428           snoup                 2002-03-03 01:39  2002.03.18  
Как скрыть/показать НАСТРОЙКА в меню ПУСК!


7-57538           Svit                  2001-12-15 15:21  2002.03.18  
Форматирование дискеты


3-57291           Siberia               2002-02-01 18:54  2002.03.18  
Что влияет на размер дистрибутива, созданного Install Shield Express?


1-57401           sc0ch                 2002-03-01 22:43  2002.03.18  
Как перевести строку (String) в бинарный вид в реестре?