FreePascal.ru

Аха, это супер.

Т.е. в fpc нет поздное связивание как в Delphi ?

program Untitled;
uses
SysUtils;
type
TItems = record
id: integer;
name: string;
end;

T1 = class
procedure add(p: Pointer);
function getRecord: Pointer; virtual;
end;

T2 = class(T1)
t: TItems;
function getRecord: Pointer; override;
end;

procedure T1.add(p ...