Могу скинуть пример на Delphi
type
TMyClass1 = class
type
TProperties = class
type
TMeasure = class
Size: TSize;
end;
public
Measure: TMeasure;
end;
public
Properties: TProperties;
constructor Create;
end;
TMyClass2 = class
Properties: record
Measure: record
Size: TSize;
end;
end;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
var MyItem := TMyClass1.Create;
MyItem.Properties.Measure.Size := TSize.Create(0, 0);
var MyItem2: TMyClass2;
MyItem2.Properties.Measure.Size := TSize.Create(0, 0);
end;
{ TMyClass1 }
constructor TMyClass1.Create;
begin
Properties := TMyClass1.TProperties.Create;
Properties.Measure := TMyClass1.TProperties.TMeasure.Create;
end;