Вопрос по указателям для типа record (Delphi) - Public forum of MSU united student networks

Ковыряюсь тут с одной прогой. Работаю с записями. Понадобилось очищать все поля записи одним махом. Задумался как реализовать. Напрямую, видимо, не получается. Начал делать через указатели. Получилось. Выяснилась одна неприятная особенность: когда работаешь с фактическими записями, то они всегда нормально инициализируются Delphi, наподобие глобальных переменных. Если работаешь с указателем на запись, то получается, что до присвоения какому-либо полю значения оно не определено. Все вроде понятно, так и должно быть, очевидно. Только вот незадача: прога была ориентирована на негласную инициализацию, а тут заглючила, поскольку поля записей стали вести себя наподобие локальных переменных.

--------------------------------------------------------------------------------------------------------
Type
  TMyRec = Record
  a: integer;
  b: integer;
  c: integer;
  d: array of integer;
end;

var
PRec: ^TMyRec;

new(PRec);

//пока полям не присвоены числа, их значения не определены!!!!!!!!!!!!!!!!!!!!!!

With PRec^ do
begin
a:=100; b:=200; c:=300;
SetLength(d,5);
d[0]:=1; d[1]:=2; d[2]:=3; d[3]:=4; d[4]:=5;
end;

dispose(PRec);
-------------------------------------------------------------------------------------------------------
Вопрос: как мне инициализировать поля записей, когда они используются через указатель, не обращаясь отдельно к каждому полю?

code:

type TMyRec=object a:integer; b:integer; c:integer; d:array of integer; constructor init; destructor done; end; constructor TMyRec.init; begin a:=2; b:=1; c:=0; d:=nil; end; destructor TMyRec.done; begin setlength(d,0); end; var rec:^TMyRec; begin new(rec,init); writeln(rec^.a,',',rec^.b,',',rec^.c); dispose(rec,done); end.