Pointers 使用dispose时出现Pascal问题，然后将NILL指定给该指针。这个问题只有在我使用a表示z中的x时才会发生 for..in不是Turbo-Pascal语法。for..in不是Turbo-Pascal语法。 procedure freeMem (va

使用dispose时出现Pascal问题，然后将NILL指定给该指针。这个问题只有在我使用a表示z中的x时才会发生

---

for..in不是Turbo-Pascal语法。for..in不是Turbo-Pascal语法。

procedure freeMem (var v: tTabla; i: integer);
var
p : tPEntero;
begin
for p in v do
    if p^ < i then
        begin
        dispose(p);
        p := NIL;
        end;
writeln('Memory disposed.');
end;

procedure freeMem (var v: tTabla; i: integer);
var
indice: integer;
begin
for indice:=1 to MAX do
    if v[indice]^ < i then
        begin
        dispose(v[indice]);
        v[indice] := NIL;
        end;
writeln('Memory disposed.');
end;