Вторник, 12 Ноя 2024, 23:00
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51642


Онлайн всего: 44
Гостей: 44
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Pascal

Шаблон массива переменной длины
Может ли кто мне подсказать как динамически создать массив записей
и получить доступ к отдельным элементам?
Определите тип массива, которым может содержать максимальное количество
записей, затем определите тип, являющийся указателем на массив. Идея заключается
в том, чтобы не создавать экземпляр самого большого массива; а вместо этого
использовать указательный тип и GetMem для распределения памяти для необходимого
вам количества записей.

Я разработал то, что я называю шаблоном массива переменной длины "для бедных
людей"...

unit %s;

{
-----------------------------------------------------------

ШАБЛОН МАССИВА ПЕРЕМЕННОЙ ДЛИНЫ

Вы можете использовать этот шаблон для создания массива
переменной длины любого типа данных.

Для того, чтобы превратить шаблон с модуль, прогоните его
через текстовый процессор, выполните во всем файле операцию
поиска/замены для замены знака процента на ваш тип данных.
-----------------------------------------------------------
}
interface

const

%MaxCapacity = High( Cardinal )
div SizeOf( % );
type

T%Index = 0..%MaxCapacity - 1;

T%s = array[ T%Index ] of %;
P%s = ^T%s;
function %sSize( Capacity: T%Index
): Cardinal;
function Get%s( Capacity:
T%Index ): P%s;
function Resize%s( var
P: P%s;

OldCapacity, NewCapacity: T%Index
): P%s;procedure Free%s( var P: P%s;
Capacity: T%Index
);

implementation
uses SysUtils;

function %sSize( Capacity: T%Index
): Cardinal;
begin

Result := Capacity * SizeOf( %
);end;

function Get%s(
Capacity: T%Index ): P%s;
begin

GetMem( Result, %sSize( Capacity
));end;

function Resize%s( var P: P%s;

OldCapacity, NewCapacity: T%Index
): P%s;begin

ReAllocMem( P, %sSize( OldCapacity
), %sSize( NewCapacity
));end;

procedure Free%s( var P: P%s;
Capacity: T%Index );
begin

FreeMem( P, %sSize( Capacity
));
P := nil;end;

end.
Категория: Pascal | Добавил: Lerka (22 Ноя 2012)
Просмотров: 378 | Рейтинг: 1.0/ 8 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Вторник
12 Ноя 2024
23:00


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz