Форум: "Основная";
Поиск по всему сайту: 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.018 c
14-57501          HDD                   2002-02-02 17:25  2002.03.18  
Помогите пожалуйста!


1-57463           Michael C             2002-03-04 10:03  2002.03.18  
Хелп, люди...


4-57561           Mastak                2002-01-20 15:21  2002.03.18  
Помогите!!! Нужна инфа по поводу функции...


6-57481           Leviathan             2001-12-26 20:49  2002.03.18  
mailto:aaa@bbb.cc


3-57328           SZap                  2002-02-19 16:58  2002.03.18  
+ поле