git-svn-id: trunk@6213 -
@@ -652,7 +652,7 @@ implementation
if found then
begin
ImplIntf.itype := etFieldValue;
- ImplIntf.fieldoffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
+ ImplIntf.iioffset := tfieldvarsym(p.propaccesslist[palt_read].firstsym^.sym).fieldoffset;
end
else
Comment(V_Error, 'Implements-property used on unimplemented interface');