V

Size: a a a
V
RS
I
V
V
V
AK
V
AK
NS
TA
TA
MО
V
N
z
z
z
program Project1;
uses
TypInfo;
type
TTestRec=record
dummy1:integer;
dummy2:byte;
end;
procedure PrepareRecordTypeinfo(pti:PTypeInfo);
var
td:PTypeData;
mf: PManagedField;
i:integer;
begin
if pti^.Kind<>tkRecord then
exit;
td:=GetTypeData(pti);
mf:=@td^.ManagedFldCount;
inc(pointer(mf),sizeof(td^.ManagedFldCount));
for i:=0 to td^.ManagedFldCount-1 do
begin
pti:=mf^.TypeRef;
writeln(pti^.Name);
inc(mf);
end;
end;
begin
PrepareRecordTypeinfo(TypeInfo(TTestRec));
readln;
end.
z