Отправляет email-рассылки с помощью сервиса Sendsay

Delphi для профессионалов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.11.2002
04:48:29
05:05:04
14
14.11.2002
01:29:03
16:05:03
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Ведущий

Статистика

8.943 подписчиков
-22 за неделю
←   Все выпуски   →

Delphi для профессионалов - Динамические массивы


Информационный Канал Subscribe.Ru
eServer.ru :: Хостинг без ограничений!
Рассылка: Delphi для профессионалов

Количество подписчиков: 2395
Рассылка 'Delphi для профессионалов'

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

Динамические массивы

Ниже содержится модуль, демонстрирующий три различных способа (далеко не все) создания динамических массивов. Все три способа для распределения достаточного количества памяти из кучи используют GetMem, TList используют для добавления элементов в список массива и используют TMemoryStream для того, чтобы распределить достаточно памяти из кучи и иметь к ней доступ, используя поток. Старый добрый GetMem вполне подходит для такой задачи при условии, что массив не слишком велик (<64K).

P.S. Я не стал ловить в коде исключения (с помощью блоков Try...Finally), которые могли бы мне помочь выявить ошибки, связанные с распределением памяти. В реальной системе вы должны быть уверены в своем грациозном владении низкоуровневыми операциями с памятью. 

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ Форма, демонстрирующая различные методы создания массива с         }
{ динамически изменяемым размером. Разместите на форме четыре кнопки,}
{ компоненты ListBox и SpinEdit и создайте, как показано ниже,       }
{ обработчики событий, возникающие при нажатии на кнопки. Button1,   }
{ Button2 и Button3 демонстрируют вышеуказанных метода. Button4      }
{ очищает ListBox для следующего примера.                            }
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
unit Dynarry1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SpinEdit1: TSpinEdit;
    ListBox1: TListBox;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Type
  pSomeType = ^SomeType;
  SomeType = Integer;

procedure TForm1.Button1Click(Sender: TObject);
Type
  pDynArray = ^tDynArray;
  tDynArray = Array[1..1000] Of SomeType;
Var
  DynArray : pDynArray;
  I        : Integer;
begin
  { Распределяем память }
  GetMem (DynArray, SizeOf(SomeType) * SpinEdit1.Value);
  { Пишем данные в массив }
  For I := 1 to SpinEdit1.Value Do
    DynArray^[I] := I;
  { Читаем данные из массива }
  For I := SpinEdit1.Value DownTo 1 Do
    ListBox1.Items.Add('Элемент ' + IntToStr(DynArray^[I]));
  { Освобождаем память }
  FreeMem(DynArray, SizeOf(SomeType) * SpinEdit1.Value);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  List : TList;
  Item : pSomeType;
  I    : Integer;
begin
  { Создаем список }
  List:=TList.Create;
  { Пишем данные  для списка }
  For I := 1 to SpinEdit1.Value do begin
    { Распределяем уникальный экземпляр данных }
  New(Item); Item^:=I;
  List.Add ( Item );
  End;
  { Читаем данные из списка - базовый индекс списка 0, поэтому вычитаем из I единицу }
  For I := SpinEdit1.Value DownTo 1 Do
    ListBox1.Items.Add ( 'Элемент ' +
             IntToStr(pSomeType(List.Items[I-1])^));
  { Освобождаем лист }
  For I := 1 to SpinEdit1.Value Do
    Dispose (List.Items[I-1]);
  List.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  Stream : TMemoryStream;
  Item   : SomeType;
  I      : Integer;
begin
  { Распределяем память потока }
  Stream:=tMemoryStream.Create;
  Stream.SetSize(SpinEdit1.Value);
  { Пишем данные в поток }
  For I := 1 to SpinEdit1.Value Do
    { Stream.Write автоматически отслеживает позицию записи,
      поэтому при записи данных за ней следить не нужно }
    Stream.Write(I,SizeOf(SomeType));
  { Читаем данные из потока }
  For I := SpinEdit1.Value DownTo 1 do begin
    Stream.Seek((I-1)*SizeOf(SomeType),0);
    Stream.Read(Item,SizeOf(SomeType));
    ListBox1.Items.Add('Элемент '+IntToStr(Item));
  End;
  { Освобождаем поток }
  Stream.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
end;

end.

 

- Robert Wittig

Все вопросы присылайте по адресу: delphi-ask@igp.org.ua
Все ответы присылайте по адресу: delphi-reply@igp.org.ua
Все подсказки присылайте по адресу: delphi-hint@igp.org.ua
Со всем списком советов можно познакомиться по адресу: http://igp.org.ua/delphine/.
Наш проект Delphine можно найти по следующей ссылке: http://igp.org.ua/products/delphine/.

Заходите в наш форум: Форум Delphi-профессионалов. Адрес: http://igp.org.ua/cgi-bin/yabb/yabb.pl.
Здесь Вы найдете ответы на все Ваши вопросы!

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное