Форум: "Основная";
Поиск по всему сайту: 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.016 c
1-57450           esprit                2002-03-04 03:36  2002.03.18  
работа с файлами


1-57346           Alexklink             2002-03-04 11:39  2002.03.18  
Проверка орфографии


1-57466           shane54               2002-03-02 19:46  2002.03.18  
Передача параметров в функцию


7-57534           Dimius                2001-12-16 20:28  2002.03.18  
Окошки!


1-57405           вшззук                2002-02-27 23:25  2002.03.18  
delphi 5 Enterprise - зависает на постой