| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

array of const

Aldor ©   (2004-12-19 16:23:00) 

Не могу найти в help'е описание сабжа.
Обнаружил, что такая конструкция имеет тип TVarRec.     Исключительно из догадок получился вот такой код использования сабжа:


procedure Foo(Args: array of const);
var
 I: Integer;
 OutStr: string;
begin
 for I := 0 to Length(Args) - 1 do
 begin
   OutStr := '';
   case Args[I].VType of
     vtInteger:
       OutStr := IntToStr(Args[I].VInteger);
     vtExtended:
       OutStr := FloatToStr(Args[I].VExtended^);
     vtString, vtAnsiString, vtPChar:
       OutStr := string(Args[I].VPChar);
   end;
   ShowMessage(OutStr);
 end;
end;


 Насколько код правилен и есть ли в хелпе "официальное" описание использования array of const?

---

Aldor   (2004-12-19 17:03:00) [1]

Огромный сэнкс, по слову variant точно бы искать не стал. А догадался я правильно :))))

---

Palladin   (2004-12-19 16:29:00) [2]

Index\Variant open array parametrs

---

Leonid Troyanovsky   (2004-12-19 16:28:00) [3]

>  Насколько код правилен и есть ли в хелпе "официальное"
> описание использования array of const?


RTFM:   Object Pascal Language Guide. Variant open array parameters

--
Regards, LVT.

---

Наверх