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

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

IP-адрес: 54.224.247.75
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
Какой торрент трекер вы предпочитаете?

Всего ответов: 447
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: 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
Группа: Администраторы
Сообщений: 89
Награды: 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 из 11
Поиск:

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

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

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

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

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