Как упростить конструкции Smallint(Pointer(@apeaks[i, 0])^) и PSmallInt(@apeaks[i, 1])^?

[SkAndrew]

Добрый день!

Как можно упростить данный код (конструкции типа Smallint(Pointer(@apeaks[i, 0])^) и PSmallInt(@apeaks[i, 1])^) без изменения объявления глобальных переменных (массава apeaks : array of array of ^SmallInt)? И, пожалуйста объясните смысл этих конструкций (Smallint(Pointer(@apeaks[i, 0])^) и PSmallInt(@apeaks[i, 1])^).

var
  Form1: TForm1;
  apeaks : array of array of ^SmallInt;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
      var i : Integer;
begin
  Memo1.Lines.Clear;
  SetLength(apeaks, 0, 0);
  for i := 0 to 9 do
  begin
    SetLength(apeaks, i+1, 2);
    Smallint(Pointer(@apeaks[i, 0])^) := i - RandomRange(0, 32768);
    Smallint(Pointer(@apeaks[i, 1])^) := i - RandomRange(0, 32768);
    Memo1.Lines.Add(Format('%d. %d : %d; %d : %d', [i, b, c, SmallInt(Pointer(@apeaks[i, 0])^), PSmallInt(@apeaks[i, 1])^]));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
      var i : Integer;
begin
  Memo2.Lines.Clear;
  for i := 0 to High(apeaks) do
  begin
    Memo2.Lines.Add(Format('%d. %d : %d', [i, SmallInt(Pointer(@apeaks[i, 0])^), SmallInt(@(apeaks[i, 1])^)])); //PSmallInt(@apeaks[i, 1])^]));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetLength(apeaks, 0, 0);
end;

Спасибо!

[BaronTreep]

А сам код работает?

Скорее всего нет...

указатели обычно используют так:

var
  x : integer;       // Просто целая
  px : ^integer;   // Указатель на целое
begin
   px := @x;      // теперь px указывает на содержание переменной x
   px^ := random(5);    // Присваиваем в x через px
end;

[Evgeniy26]

  Setlength(apeaks, 1, 1);
  GetMem(apeaks[0, 0], SizeOf(SmallInt));
  apeaks[0, 0]^ := 5;
  FreeMem(apeaks[0, 0], SizeOf(SmallInt));

 
  Setlength(apeaks, 1, 1);
  New(apeaks[0, 0]);
  apeaks[0, 0]^ := 5;
  Dispose(apeaks[0, 0]);

[SkAndrew]

Во-первых, спасибо за помощь.
Во-вторых код абсолютно рабочий, который я привел. можете проверить. значения в мемо 1 и 2 полностью совпадают. тоесть те значения который я заношу в массив я могу извлечь из него, например, в мемо 2.

Последний код интересный, но используя его так:

var
  Form1: TForm1;
  apeaks : array of array of ^SmallInt;
  b, c : SmallInt;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
      var i : Integer;
begin
  Memo1.Lines.Clear;
  if apeaks <> nil then
  begin
    SetLength(apeaks, 0, 0);
  end;
  for i := 0 to 9 do
  begin
    SetLength(apeaks, i+1, 2);
    GetMem(apeaks[i, 0], SizeOf(SmallInt));
    GetMem(apeaks[i, 1], SizeOf(SmallInt));
    b := i - RandomRange(0, 32768);
    c := i - RandomRange(0, 32768);
    // Smallint(Pointer(@apeaks[i, 0])^) := b;
    // Smallint(Pointer(@apeaks[i, 1])^) := c;
    apeaks[i, 0]^ := i - RandomRange(0, 32768);
    apeaks[i, 1]^ := i - RandomRange(0, 32768);
    Memo1.Lines.Add(Format('%d. %d : %d; %d : %d', [i, b, c, apeaks[i, 0]^, apeaks[i, 1]^])); // SmallInt(Pointer(@apeaks[i, 0])^), PSmallInt(@apeaks[i, 1])^]));
    FreeMem(apeaks[i, 0], SizeOf(SmallInt));
    FreeMem(apeaks[i, 1], SizeOf(SmallInt));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
      var i : Integer;
begin
  Memo2.Lines.Clear;
  for i := 0 to High(apeaks) do
  begin
    Memo2.Lines.Add(Format('%d. %d : %d', [i, apeaks[i, 0]^, apeaks[i, 1]^])); // SmallInt(Pointer(@apeaks[i, 0])^), SmallInt(@(apeaks[i, 1])^)])); //PSmallInt(@apeaks[i, 1])^]));
  end;
end;

код работает, но я получаю отличные (разные) значения в мемо 1 и мемо 2 извлекая из массива и сравниваая с исходными, которые вношу в массив (b и с). Что неверно? может по другому нужно как-то извлекать из такого массива данныее? Спасибо

[Evgeniy26]

Вы память очищаете.

FreeMem(apeaks[i, 0], SizeOf(SmallInt));
FreeMem(apeaks[i, 1], SizeOf(SmallInt));

А потом запрашиваете. Конечно там мусор будет.

[SkAndrew]

Тогда правильно перед каждым нажатие кнопки будет так или что-то снова неверно?
то есть как правильно обновлять массив, при этом не создавая мусор или не оставляя мусор в памяти, а тоже ее очищая.

procedure TForm1.Button1Click(Sender: TObject);
      var i : Integer;
begin
  Memo1.Lines.Clear;
  if apeaks <> nil then
  begin
    for i := 0 to High(apeaks) do
    begin
      FreeMem(apeaks[i, 0], SizeOf(SmallInt));
      FreeMem(apeaks[i, 1], SizeOf(SmallInt));
    end;
  end;
  SetLength(apeaks, 0, 0);
  for i := 0 to 9 do
  begin
    SetLength(apeaks, i+1, 2);
    GetMem(apeaks[i, 0], SizeOf(SmallInt));
    GetMem(apeaks[i, 1], SizeOf(SmallInt));
    b := i - RandomRange(0, 32768);
    c := i - RandomRange(0, 32768);
    apeaks[i, 0]^ := b; // i - RandomRange(0, 32768);
    apeaks[i, 1]^ := c; // i - RandomRange(0, 32768);
    Memo1.Lines.Add(Format('%d. %d : %d; %d : %d', [i, b, c, apeaks[i, 0]^, apeaks[i, 1]^]));
end;

Спасибо

[Evgeniy26]

var 
  i : Integer;
begin
  Memo1.Lines.Clear;
  if apeaks <> nil then
    for i := 0 to High(apeaks) do
    begin
      Dispose(apeaks[i, 0]);
      Dispose(apeaks[i, 1]);
    end;
  SetLength(apeaks, 10, 2);
  for i := 0 to High(apeaks) do
  begin
    New(apeaks[i, 0]);
    New(apeaks[i, 1]);
    b := i - RandomRange(0, 32768);
    c := i - RandomRange(0, 32768);
    apeaks[i, 0]^ := b; // i - RandomRange(0, 32768);
    apeaks[i, 1]^ := c; // i - RandomRange(0, 32768);
    Memo1.Lines.Add(Format('%d. %d : %d; %d : %d', [i, b, c, apeaks[i, 0]^, apeaks[i, 1]^]));
  end;

И в обработчик OnClose формы вставте

   if apeaks <> nil then
    for i := 0 to High(apeaks) do
    begin
      Dispose(apeaks[i, 0]);
      Dispose(apeaks[i, 1]);
    end;

[SkAndrew]

Спасибо большое за очень подробную помощь.
Если не сложно можно еще вопрос:

В каких случаях лучше использовать New, а в каких GetMem и что должно идти раньше - обявление размера массива SetLength(apeaks, i+1, 2);, а затем выделение памяти New или GetMem или наоборот. Соответственно, правилная конструкция сперва высвобождения памти, а потом SetLength(apeaks, 0, 0); или как-то иначе.

Спасибо еще раз!

[Evgeniy26]

Найдите там главу указатели: http://www.delphikingdom.com/asp/vie...catalogID=1184
Поищите, информации на эту тему много.

[Stilet]

В каких случаях лучше использовать New, а в каких GetMem

New удобнее. Это скорее директива чем функция. Она просит память согласно размеру переменки, а GetMem выделяет побайтно, и даже если ты попросишь больше или меньше чем нужно для переменки она сработает.
Я бы cказал New универсальнее...