Stas'M Corp.
Главная | procedure CreateArray(var Arr: Array of Word; const A: Array of Word); - Форум | Регистрация | Вход
 
Пятница, 19.04.2019, 11:15
Приветствую Вас Гость | RSS
| ENG | RUS
Форма входа

Информация о тебе:

IP-адрес: 3.80.224.52
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
Что делаете на нашем сайте?
Всего ответов: 1074
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Administrator, Phantom, b@bskEnízm  
Форум » Хакерский форум » Программирование: Delphi & Pascal » procedure CreateArray(var Arr: Array of Word; const A: Array of Word); (Создание массива с предустановленными значениями)
procedure CreateArray(var Arr: Array of Word; const A: Array of Word);
AdministratorДата: Воскресенье, 29.07.2012, 02:04 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 90
Награды: 39
Репутация: 50
Статус: Offline
Иногда необходимо быстро создать динамический массив с уже установленными значениями. Конечно, для этого потребуется цикл, в котором будут записываться данные для каждого элемента массива. Но что делать, если элементов в массиве over9000 и каждый элемент уже определён? Тогда поможет эта простая функция, которой достаточно указать все значения массива в аргументе, и она создаст динамический массив. Собственно, вот она:
 
procedure CreateArray(var Arr: Array of Word; const A: Array of Word);
  var I: Integer;
begin
  SetLength(Arr, High(A)-Low(A)+1);
  for I:=Low(A) to High(A) do
    Arr[I] := A[I];
end;
Пример использования:
 
var
   MyArr: Array of Word;
begin
  CreateArray(MyArr, [9000, 8999, 8998, 8997, ... , 5, 4, 3, 2, 1, 0]);
end;
Разумеется, для приведённого примера можно написать ещё более простой код заполнения массива. И, конечно же, типы массивов можно при необходимости изменить.


Stas'M
 
Форум » Хакерский форум » Программирование: Delphi & Pascal » procedure CreateArray(var Arr: Array of Word; const A: Array of Word); (Создание массива с предустановленными значениями)
  • Страница 1 из 1
  • 1
Поиск:

Веб приложения
Пожертвование / Donate
WMWebMoney transferZ358077191062
WMWebMoney transferE208225402366
WMWebMoney transferR303537803958
WMWebMoney transferB345247247920
WUWestern Union transferuse feedback form
Друзья сайта

Просим вас посещать сайты наших друзей! Они достойны такого же внимания как и мы!

Пользователи

Пользователи онлайн:
Статистика

Copyright © Stas'M Corp. 2019Хостинг от uCoz