PAbc = ^TAbc;
TAbc = record
a: string[10];
b: string[5];
c: string[1];
end;
var
Abc: PAbc;
New(Abc);
...
Dispose(Abc); ...
PAbc = ^TAbc;
TAbc = record
a: string[10];
b: string[5];
c: string[1];
end;
var
Abc: PAbc;
New(Abc);
...
Dispose(Abc); ...