получить значение поля другого класса

[Roof]

Вот мой модуль с несколькими классами.

unit Land;

interface
uses Classes;

type

  TSeedGrowing = class(TPersistent)
  private
    FNormSowing: real;
    ...

  public
    procedure CalcNormSowing;    //интересует эта процедура
    ...
  published
    property NormSowing: real read FNormSowing;
    ...
  end;

  TLand = class(TCollectionItem)
  private
    FArea: real;
    FProductivity: real;
    FCost: real;
    FPrice: real;
    FSeedGrowing: TSeedGrowing;

  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;

  published
    property Area: real read FArea write FArea;
    property Productivity: real read FProductivity write FProductivity;
    property Cost: real read FCost;
    property Price: real read FPrice write FPrice;
    property SeedGrowing: TSeedGrowing read FSeedGrowing write FSeedGrowing;

  end;

  TCollLand = class(TCollection)
  public
    function GetLand(index: Integer): TLand;
    procedure SetLand(index: Integer; Value: TLand);
    function Add: TLand;
    property Items[index: Integer]: TLand read GetLand
    write SetLand; default;

  end;
  TAcLand = class(TComponent)
  private
    name: string;
    FCollLand: TCollLand;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property CollLand: TCollLand read FCollLand write FCollLand;

  end;

implementation

{ TLand }

constructor TLand.Create(Collection: TCollection);
begin
  inherited;
  FSeedGrowing := TSeedGrowing.Create;

end;

destructor TLand.Destroy;
begin
  FSeedGrowing.Free;
  inherited;
end;

{ TSeedGrowing }

procedure TSeedGrowing.CalcNormSowing;
begin
  //FNormSowing := ;
end;

{ TCollLand }

function TCollLand.Add: TLand;
begin
  Result := TLand(inherited Add);
end;

function TCollLand.GetLand(index: Integer): TLand;
begin
  Result := TLand(inherited Items[index]);
end;

procedure TCollLand.SetLand(index: Integer; Value: TLand);
begin
  Items[index].Assign(Value);
end;

{ TAcLand }

constructor TAcLand.Create(AOwner: TComponent);
begin
  inherited;
  FCollLand := TCollLand.Create(TLand);
end;

destructor TAcLand.Destroy;
begin
  FCollLand.Free;
  inherited;
end;

end.

Меня интересует реализация процедуры CalcNormSowing в классе TSeedGrowing. Например, значение поля FNormSowing в этой процедуре считается как произведение значения поля FArea (класс TLand) и значения поля FProductivity (класс TLand) и произведение некоторых полей класса TSeedGrowing.
Ничего лучшего, кроме как передать эти значения в виде параметров процедуры я не придумал. Вот так:
procedure CalcNormSowing(Area, Productivity: real);
Возможно ли обойтись без параметров? Как-то сослаться на значения этих полей (FArea, FProductivity) в самой процедуре?

[Stilet]

Ну а чем параметры то не угодили?
В крайнем случае можно вытянуть эти поля в отдельный класс (оъект - хранилище), а во всех остальных его использовать

type
 basa=class
  q,w,e:integer;
 end;

 o1=class
  bs:basa;
  procedure b;
 end;
 o2=class
  bs:basa;
  procedure b;
 end;

 var b:basa;
  q:o1;
  w:o2;
{ o1 }

procedure o1.b;
begin
 bs.e:=bs.q+bs.w;
end;

{ o2 }

procedure o2.b;
begin
  bs.e:=bs.q-bs.w;
end;

begin
 b:=basa.Create; b.q:=1;b.w:=2;
 q:=o1.Create;  q.bs:=b; q.b;
 w:=o2.Create;  w.bs:=b; w.b;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Код наспех, но смысл в том чтоб создать отдельный объект для использования во всех других объектах.

[Roof]

Параметры угодили но меня не покидала мысль - что можно сделать проще/по-другому.
Смысл я понял, спасибо. В моем случае с параметрами проще реализовать, на мой взгляд.

[mutabor]

Можно еще сделать привязку к тем другим объектам, в к-рых нужные свойства. Так удобно делать, если объекты взаимосвязаны и работают в комплексе, в одной системе, неразлучно друг от друга, но при этом они разные объекты. Тогда делаешь public поля:
Land: TLand;
Traktor: TTraktor;
// и т.д.
На момет создания объекта они будут ссылаться в nil. Но после создания ты можешь им присвоить ссылки (должны быть уже созданы):
Object.Land := Land1;
Object.Traktor := Belarus;
И потом внутри класса можешь использовать их не получая ничего в параметрах.

И еще, разновидность этого способа: если нужно получить целую кучу параметров, но из одного объекта, передавай просто ссылку на объект и вытягивай из него, что нужно.

procedure SomeProc(Obj: TSomeObject);
  with Obj do begin
    // и тут доставай из него что тебе нужно
  end;

[Roof]

2 mutabor - второй способ понял, но, думаю, использовать такое только если действительно надо получить кучу параметров. Хотя я стараюсь разбивать на отдельные процедуры, чтобы избежать как раз таки кучи параметров.

А вот

Тогда делаешь public поля

- где создавать?

И потом внутри класса можешь использовать их не получая ничего в параметрах.

- и это не понял. Т.е. в моем случае можно записать так:

procedure TSeedGrowing.CalcNormSowing;
begin
  FNormSowing := FArea * FProductivity;
end;

??

[Stilet]

Т.е. в моем случае можно записать так:

Только если FArea и FProductivity будут полями этого класса.

[Roof]

2 Stilet - это понятно. Но они поля другого класса. Я не понял вот этого:

Тогда делаешь public поля

и

И потом внутри класса можешь использовать их не получая ничего в параметрах.

и потому привел этот пример.

[mutabor]

Посмотрел внимательней код, можно сделать еще лучше. У тебя ведь он (FSeedGrowing) внутри TLand, тогда в конструктор ему передавай ссылку на хозяина.

Создание тогда у тебя будет иметь вид:
FSeedGrowing := TSeedGrowing.Create(Self);

Объявление конструктора такое:
constructor Create(AOwner: TLand);

Доступ к полям, внутри TSeedGrowing:
Owner.FArea

Поля эти в TLand вынеси в паблик, иначе не будет доступа к ним.

[Roof]

2 mutabor - пробовал, пробовал, так и не получилось обратиться к полям, внутри TSeedGrowing через Owner
В реализации процедуры TSeedGrowing.CalcNormSowing; в строке

  FNormSowing := Owner.FArea * Owner.FProductivity;

Пишет, что не знает кто такой Owner. Вот весь код с исправлениями:

unit Land;

interface
uses Classes;

type

  TLand = class;

  TSeedGrowing = class(TPersistent)
  private
    FNormSowing: real;

  public
    constructor Create(AOwner: TLand);
    destructor Destroy;
    procedure CalcNormSowing; //интересует эта процедура

  published
    property NormSowing: real read FNormSowing;

  end;

  TLand = class(TCollectionItem)
  private
    FCost: real;
    FPrice: real;

  public
    FSeedGrowing: TSeedGrowing;
    FArea: real;
    FProductivity: real;
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;

  published
    property Area: real read FArea write FArea;
    property Productivity: real read FProductivity write FProductivity;
    property Cost: real read FCost;
    property Price: real read FPrice write FPrice;
    property SeedGrowing: TSeedGrowing read FSeedGrowing write FSeedGrowing;

  end;

  TCollLand = class(TCollection)
  public
    function GetLand(index: Integer): TLand;
    procedure SetLand(index: Integer; Value: TLand);
    function Add: TLand;
    property Items[index: Integer]: TLand read GetLand
    write SetLand; default;

  end;
  TAcLand = class(TComponent)
  private
    name: string;
    FCollLand: TCollLand;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property CollLand: TCollLand read FCollLand write FCollLand;

  end;

implementation

{ TLand }

constructor TLand.Create(Collection: TCollection);
begin
  inherited;
  FSeedGrowing := TSeedGrowing.Create(Self);

end;

destructor TLand.Destroy;
begin
  FSeedGrowing.Free;
  inherited;
end;

{ TSeedGrowing }

procedure TSeedGrowing.CalcNormSowing;
begin
  FNormSowing := Owner.FArea * Owner.FProductivity;
end;

constructor TSeedGrowing.Create(AOwner: TLand);
begin

end;

destructor TSeedGrowing.Destroy;
begin

end;

{ TCollLand }

function TCollLand.Add: TLand;
begin
  Result := TLand(inherited Add);
end;

function TCollLand.GetLand(index: Integer): TLand;
begin
  Result := TLand(inherited Items[index]);
end;

procedure TCollLand.SetLand(index: Integer; Value: TLand);
begin
  Items[index].Assign(Value);
end;

{ TAcLand }

constructor TAcLand.Create(AOwner: TComponent);
begin
  inherited;
  FCollLand := TCollLand.Create(TLand);
end;

destructor TAcLand.Destroy;
begin
  FCollLand.Free;
  inherited;
end;

end.

Для проверки могу выложить весь этот тестовый проект сюда в архиве.

[Stilet]

Имелось ввиду это:

  TSeedGrowing = class(TPersistent)
  private
    FNormSowing: real;
    Owner: TLand;
  public
    constructor Create(AOwner: TLand);
    destructor Destroy;
    procedure CalcNormSowing; //интересует эта процедура
...
procedure TSeedGrowing.CalcNormSowing;
begin
  FNormSowing := Owner.FArea * Owner.FProductivity;
end;

constructor TSeedGrowing.Create(AOwner: TLand);
begin
 Owner:=AOwner;
end;

и в этом случае:

TLand = class
 FArea,FProductivity:integer;
end;

Обязательно.