Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Пример массива констант (Array of Const) 2

Delphi , Синтаксис , Массивы

Пример массива констант (Array of Const) 2

Массив констант (array of const) фактически является открытым массивом TVarRec (описание предекларированных типов Delphi вы можете найти в электронной справке). Приведенный ниже "псевдокод" на языке Object Pascal может послужить скелетом для дальнейшего развития:


procedure AddStuff(const A: array of const);
var
  i: Integer;
begin
  for i := Low(A) to High(A) do
    with A[i] do
      case VType of
        vtExtended:
          begin
            { добавляем натуральное число, все real-форматы
            автоматически приводятся к extended }
          end;
        vtInteger:
          begin
            { добавляем целое число, все integer-форматы
            автоматически приводятся к LongInt }
          end;
        vtObject:
          begin
            if VObject is DArray then
              with DArray(VObject) do
              begin
                { добавляем массив double-типа }
              end
            else if VObject is IArray then
              with IArray(VObject) do
              begin
                { добавляем массив integer-типа }
              end;
          end;
      end; { Case }
end; { AddStuff }

Для получения дополнительной информации загляните в главу "open arrays" электронной справки.

Массив констант (array of const) является открытым массивом TVarRec, который может содержать элементы различных типов данных, включая целые числа, реальные числа и объекты.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Массивы ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-02 00:22:08/0.0024900436401367/0