Форум: "Основная";
Поиск по всему сайту: 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.038 c
1-57446           softland              2002-03-02 12:38  2002.03.18  
Работа с TShellListView


4-57577           solo                  2002-01-18 01:45  2002.03.18  
Создание окна при помощи WinAp


14-57501          HDD                   2002-02-02 17:25  2002.03.18  
Помогите пожалуйста!


3-57338           vicsoft               2002-02-08 20:29  2002.03.18  
МАСТЕРА, ПОМОГИТЕ!!! Как изменить тип поля


1-57364           Talvin                2002-03-04 20:09  2002.03.18  
Загрузка данных