Текущий архив: 2005.01.02;
Скачать: CL | DM;

Вниз

array of const   Найти похожие ветки 

← →
Aldor ©   (2004-12-19 16:23) [0]

Не могу найти в 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?

---

← →
Leonid Troyanovsky ©   (2004-12-19 16:28) [1]

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


RTFM:   Object Pascal Language Guide. Variant open array parameters

--
Regards, LVT.

---

← →
Palladin ©   (2004-12-19 16:29) [2]

Index\Variant open array parametrs

---

← →
Aldor ©   (2004-12-19 17:03) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.064 c