Создание динамических массивов
В Delphi предусмотрено использование как традиционных статических, так и динамических массивов. Давайте создадим массив для хранения произвольного количества целых чисел. Его описание будет выглядеть следующим образом:
TYPE TA=ARRAY OF INTEGER;
VAR a:TA;
Для динамических массивов размерность вообще не указывается.
Первоначальное задание или изменение размеров динамического массива выполняется функцией SetLength(массив, число_элементов). Функция Length(массив) (та же, что работает с текстовыми строками) возвращает текущее количество элементов в массиве, функции Low(массив) и High(массив) – нижнее и верхнее значения индекса массивов соответственно. Нумерация индексов всегда начинается с нуля. Процедура Finalize(массив) удаляет массив целиком из памяти и делает его длину нулевой.
Пусть нам надо прочесть из файла неизвестное заранее количество текстовых строк и занести их в массив. Делается это так:
TYPE TA=ARRAY OF STRING;
VAR a:TA; f:TEXTFILE; i:byte;
BEGIN
ASSIGNFILE(f,'1.TXT');
RESET(f);
// цикл до конца файла
WHILE NOT(EOF(f)) DO
BEGIN
// увеличиваем длину массива на единицу
SetLength(a,Length(a)+1);
// считываем строку в последний элемент массива
READLN(f,a[Length(a)-1])
END;
CLOSEFILE(f)
…
Обратите внимание на строку READLN(f,a[Length(a)-1]). Функция Length(a) возвращает число элементов в массиве. Оно на единицу больше индекса последнего элемента. Так, при длине массива в три элемента индексы имеют вид 0,1,2. Поэтому необходимо вычитать единицу для получения индекса последнего элемента.
Теперь выведем содержимое динамического массива в компонент Memo1:
Memo1.Lines.Clear;
FOR i:=Low(a) TO High(a) DO
Memo1.Lines.Add(a[i]);
Дата добавления: 2015-03-19; просмотров: 756;