객체나 동적배열을 사용한 후에 해제 해야 하는지요...
한다면 어떻게 하는지 알려주세요

type
  Test = record
    a : array of integer
    s : array of String
end;

var
AShape : Array of TShape;

i : integer
begin
setLength(AShape, 5);
for i:=0 to Length(AShape)-1 do
  AShape[i] := TShape.Create(self);

setLength(test,2);
setLength(test[0].a, 2);
setLength(test[0].s, 2);
setLength(test[1].a, 2);
setLength(test[1].s, 2);

해제
for i:=0 to Length(AShape)-1 do
AShape[i].free

for i:=0 to Length(Test)-1 do
begin
  setLength(Test[i].a, 0);
  setLength(Test[i].s. 0);
end;

이런 식으로 하면 되는지요....



setLength(test[0].a, 2);

setLength(test[1].a, 2);