Record- oder Klassenfelder als property zuweisen und lesen, wie?

[ConnorMcLeod]

Denke ich zu einfach? Bei mir funkt es ...

Delphi-Quellcode:

function TTemplateApp.GetWidth: Integer;
var
  LoColumn  : TCustomColumn;
  LoDataItem: TGenericItem;
begin
  Result := 0;
  LoColumn := TCustomColumn.Create(nil);
  LoDataItem := TGenericItem.Create;
  try 
    LoColumn.Item := LoDataItem;
    Result := LoColumn.Item.Data.Int32data;
  finally  
    FreeAndNil(LoDataItem);
    FreeAndNil(LoColumn);
  end;
end;