5.2. Организация динамических массивов
Обычно динамическое выделение и освобождение памяти используется при работе с большими массивами данных.
В случае, когда максимальные размеры массива заранее известны, динамическое распределение памяти может быть организовано следующим образом:
type Tmas = array[1..1000, 1..2000] of byte;
Pmas = ^Tmas
var B : Pmas // Указатель на динамический массив
begin
New(B); .. Выделение памяти
<работа с массивом>
Dispose(B); // Освобождение памяти
При такой организации память выделяется нерационально и заведомо с избытком, при этом всегда нужно помнить об ограничении на индексы.
С помощью процедур Getmem и Freemem можно создавать массивы с изменяемым размером – динамические массивы. Для этого определим тип указателя на массив с небольшим размером, а затем выделим памяти столько, сколько необходимо:
type
Tmas=array[1..1] of extended;
Pmas=^Tmas; // Указатель на массив
Var a : Pmas;
mt, n : word;
begin
mt:=sizeof(extended); // Определение количества байт,
// которое занимает указанный тип данных
GetMem(a,mt*n); // Выделение памяти под n чисел
<работа с массивом размерности n>
FreeMem(a, mt*n); // Освобождение памяти
При работе с такой программой необходимо отключать проверку выхода индекса за пределы массива и внимательно следить за тем, чтобы индекс не вышел за пределы выделенной памяти.
Организация двумерного динамического массива реализуется следующим образом:
Type
TMas = array[1..1] of integer;
PMas = ^TMas;
TMas2 = array[1..1] of PMas;
PMas2 = ^TMas2;
Var
a : PMas2;
N,M,i,j : integer;
begin
…
GetMem(a,4*M);
for i:=1 to M do GetMem(a[i],N*sizeof(integer));
…
// Работа с массивом а[i,j], 1≤i≤M, 1≤j≤N
…
for i:=1 to M do FreeMem(a[i],N*sizeof(integer));
FreeMem(a,4*M);
5.3. Компонент tBitBtn
Компонент TBitBtn расположен на странице Additonal палитры компонентов и представляет собой разновидность стандартной кнопки TButton. Его отличительная особенность – наличие растрового изображения на поверхности кнопки, которое определяется свойством Clyph. Кроме того, имеется свойство Kind, которое задает одну из 11 стандартных разновидностей кнопок. Кнопка bkClose закрывает главное окно и завершает работу программы.
5.4. Пример написания программы
Задание: Дан массив, состоящий из семи цифр. Упорядочить элементы массива по возрастанию. Панель диалога приведена на рис. 5.1.
Рис. 5.1.
Текст программы приведен на Листинге 5.1.
Листинг 5.1.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const N=7;
Type
TMas = array[1..1] of integer;
PMas = ^TMas;
var
Form1: TForm1;
a : PMas;
i,j,t : integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
for i:=1 to N do
StringGrid1.Cells[i-1,0]:=IntToStr(Random(100));
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GetMem(a,N*sizeof(integer));
for i:=1 to N do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
for i:=1 to N-1 do
for j:=i+1 to N do
if a[i]>a[j] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to N do
StringGrid2.Cells[i-1,0]:=IntToStr(a[i]);
FreeMem(a,N*sizeof(integer));
end;
end.