Pascal Вывод массива указателей на запись и очистка динамической памяти

[Решетова Алена]

Блин( Так стыдно это спрашивать, но не могу я понять, как правильно написать( Помогите, пожалуйста.

{$mode objfpc}
const N=3;
type TSortedArray=array of pointer;
type pchelovek=^chelovek; //тип запись
  chelovek = record  //запись
    n: string[15];
    f: string[20];
    o: string[20];
    v: integer;
  end;
Var Area:TSortedArray;
      h:integer;
      pch: pchelovek;
Begin
setlength(Area,N);
for h:=0 to N-1 do
  begin
   new(pch);
   writeln ('введите сведения о',h,'-м студенте');
   writeln ('введите имя');
   readln (pch^.n);
   writeln ('введите фамилию');
   readln (pch^.f);
   writeln ('введите отчество');
   readln(pch^.o);
   writeln ('введите возраст');
   readln(pch^.v);
   area[h]:=pch;
  end;
   writeln ('ввод закончен');
   writeln ;

// вывод записи

// очистка памяти в цикле с помощью dispose

End.

[s-andriano]

Делаете второй такой же цикл, в котором выводите, куда нужно, и освобождаете память.

[Решетова Алена]

Напишите, пожалуйста, код(((

[Решетова Алена]

Видимо, я что-то делаю не так. Где-то ошибка.

[s-andriano]

Сообщение от Решетова Алена

Видимо, я что-то делаю не так. Где-то ошибка.

Посмотрел внимательнее, действительно.

Вместо этого:

type TSortedArray=array of pointer;

следует написать

type TSortedArray=array of pchelovek;

и, естественно, поместить это после определения pchelovek.

      pch: pchelovek;

можно вообще исключить. Тем более, что как раз здесь у Вас ошибка - Вы многократно выделяете память одному и тому же указателю.
И теперь вместо pch везде писать area[h].
соответственно, убрать:

   area[h]:=pch;

и в конце цикл по выводу, как и куда Вы собираетесь выводить, не знаю, поэтому код написать не могу.
Но После вывода в этом же цикле

dispose(area[h]);

А освобождению памяти:

SetLength(Area,0);

И еще совет: если Вы используете единственную переменную цикла - называйте ее "i" - есть такая традиция.

[Решетова Алена]

Спасибо)) Про традицию знаю)) Переменная, увы, не единственная, поэтому задействовала i,j,h

[s-andriano]

Сообщение от Решетова Алена

Спасибо)) Про традицию знаю)) Переменная, увы, не единственная, поэтому задействовала i,j,h

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

[Решетова Алена]

А потом я запутаюсь, если везде i будет. Как хочу так и делаю.

[DiemonStar]

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

Поэтому, я бы на Вашем месте, формировал бы нормальную очередь или стек, а вывод сделал бы в типизированный файл. И переменные i, j, k там вообще не понадобятся...

[Решетова Алена]

а это далеко не конечный вариант лабораторной. это промежуточная часть, в которой я пытаюсь разобраться с простым выводом записи на консоль. вот, например, ещё один вопрос по этой лабораторной, но он уже решен) http://www.programmersforum.ru/showthread.php?t=230565