freepascal.ru

Код: Выделить всё

  
// Модуль MyDevice 
uses MyUart;

type
  TMyDevice = class
  private
    Freg : array[0..1023] of word;
    procedure SetReg(Index: integer; Value:word);
    function  GetReg(Index: integer) :word;
  public
    UART: TMyUart;
    property Reg[i:integer]:word read GetReg write SetReg;
    constructor Create;
  end;

implementation

  constructor MyDevice.Create;
  begin
    UART := TMyUart.Create; // здесь надо как-то сделать, чтобы экземпляр UART мог читать и писать Reg
  end;

  ...

(***************************************)
// Модуль MyUart
type
  TMyUart = class
  public
    procedure SendReg(adr,len: word);
    procedure ReceiveReg(adr,len: word);
  end;

implementation

    procedure TMyUart.ReceiveReg(adr,len: word);
    begin
      // Здесь мне надо писать и читать Reg из TMyDevice 
    end;

Код: Выделить всё

     
    // Модуль MyDevice
    uses MyUart;

    type
      TMyDevice = class
      private
        Freg : array[0..1023] of word;
        procedure SetReg(Index: integer; Value:word);
        function  GetReg(Index: integer) :word;
      public
        UART: TMyUart;
        property Reg[i:integer]:word read GetReg write SetReg;
        constructor Create;
      end;

    implementation

      constructor MyDevice.Create;
      begin
        UART := TMyUart.Create(self); // здесь надо как-то сделать, чтобы экземпляр UART мог читать и писать Reg
      end;

      ...

    (***************************************)
    // Модуль MyUart
    type
      TMyUart = class
          fMydevice: TObject;
      public
        procedure SendReg(adr,len: word);
        procedure ReceiveReg(adr,len: word);
        constructor Create(AOwner: TObject);
      end;

    implementation
    uses  MyDevice;

     constructor TMyUart.Create( AOwner: TObject);
     begin
        fMyDevice := AOwner;
     end;

        procedure TMyUart.ReceiveReg(adr,len: word);
        begin
           (fMyDevice as TMyDevice).SendReg(...
          // Здесь мне надо писать и читать Reg из TMyDevice
        end;