Я выделяю память под массив и под строки
Код: Выделить всё
const count=32000;
type PStr=^string;
Arr=array[1..1] of PStr;
PArr=^Arr;
var buf:string;
i:1..100000;
DArr:PArr;
begin
...
{Тут было согласование файла f}
...
GetMem(DArr,Count*SizeOf(PStr));
for i:=1 to count do
begin
readln(f,buf);
GetMem(DArr^[i],length(buf)+1);
DArr^[i]^:=buf;
end;
...
{теперь я работаю с полученной структурой, и когда работа заканчивается, приходит время освобождать память}
...
end.
1)Правильно ли я всё сделал;
2)Как теперь проще всего освободить память?
Неужели придётся заново проходить оп массиву, проверять размер каждой из строк, и выгружать каждую строку отдельно?