Освобождение память (Паскаль)

[VadEr]

Доброй ночи!
Подскажите пожалуйста, как у динамических массивов освобождать корректно память?
Суть в том, что если массив квадратный,то проблем нет. А если он прямоугольный, то цикл удаления строк выводит EInvalidPointer.

[p51x]

Приводи код, а так можно сказать только: у тебя ошибка в н-ой строчке.

[СВ9]

Никаких проблем:
type
TBuf= array[1..10,1..20] of real;
var
Buf: ^TBuf
R: real;
begin new(Buf);
Buf^[1,1]:=1.0;
R:=Buf^[1,1];
dispose(Buf);
end.

А, вообще, динамический массив лучше строится на основе
связного списка, когда под каждую новую запись(строку)
выделяется своя память с запоминанием адреса
в предыдущей записи. Таким образом память используется
с максимальной экономией.
email: logsvi@yandex.ru

[Grag]

Сообщение от VadEr

Доброй ночи!
Подскажите пожалуйста, как у динамических массивов освобождать корректно память?
Суть в том, что если массив квадратный,то проблем нет. А если он прямоугольный, то цикл удаления строк выводит EInvalidPointer.

А какой Паскаль поддерживает динамические массивы???
В Дельфях это делается так:
var
mass:array of 'type';
begin
SetLength(mass,length); //выделяем память для массива
...........

mass:=nil;//освобождаем память

end

[VadEr]

Type
  MyType = Integer;
Type
  PMas = ^TMas;
  TMas = Array[1..1] of MyType;
  PArray = ^TArray;
  TArray = Array[1..1] of PMas;
Var
  A: PArray;
  i,j, N,M: Integer;
begin
...
  GetMem(A, N*SizeOf(PMas));
  For i := 1 To M Do
    GetMem(A^[i], M*SizeOf(MyType));
...
  For i := 1 To M Do
    FreeMem(A^[i], SizeOf(MyType)*M);
  FreeMem(A, SizeOf(PMas)*N);
end;

если N=4,M=7, то EInvalidPointer на сторке FreeMem(A^[i], SizeOf(MyType)*M);
если N=7,M=4, то просто вылет из проги, когда заносим в массив данные
For i := 1 to N do
For j := 1 to M do
A^[i]^[j] := Random(100);

mass:=nil;//освобождаем память

насколько мне известно , то это только обнулит ссылку, а выделенная память так и останется зарезервированной

[RUSt88]

А какой Паскаль поддерживает динамические массивы???

да вы че ребята? паскаль поддерживает динамические массивы! только работа с таким массивом идет через указатели!

unit module1;

interface

type
  TMass = array[0..1] of Integer;  { массив, будет у нас динамическим}
  PMass = ^TMass; {указатель на массив}
  {создание массива по указаателю и с заданным размером}
  procedure CreateMassiv(var p: PMass; R: Integer);
   { заполнение массива по указателю случайными числами от N1 до N2}
  procedure FixMassiv(var p: PMass; N1: Integer; N2: Integer); 

implementation
var
  N: Integer;

procedure CreateMassiv(var p: PMass; R: Integer);
begin
  GetMem(p, SizeOf(Integer) * R); {выделяем память под динамический массив}
  N := R;
end;

procedure FixMassiv(var p: PMass; N1: Integer; N2: Integer);
var
  i: Integer;
begin
  Randomize;
  for i := 0 to N - 1 do begin
    p^[i] := N1 + Random(N2 - N1);
  end;
end;

end.

[Grag]

VadEr писал:

Цитата:
mass:=nil;//освобождаем память
насколько мне известно , то это только обнулит ссылку, а выделенная память так и останется зарезервированной

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

[Grag]

RUSt88 писал:

да вы че ребята? паскаль поддерживает динамические массивы! только работа с таким массивом идет через указатели!

Паскаль не поддерживает динамический массив как встроенный тип данных
(попробуй сделать трансляцию программы, где будет следующая строка

Var
  Mass:array of 'тип'; {именно так определяется дин. массив}

Другое дело, что используя ссылки, можно просто сконструировать динамическую структуру данных, организовав ее в массив...
А это уже из другой оперы песня...

Причем приведенный тобой пример смело можно назвать псевдо-динамическим массивом, так как размер памяти, выделяемый под такой массив не может превышать 64 кБ, да и то, если эта память ничем не занята. Вот так то...