Проблема с описанием типа в public

[Trikster]

Суть проблемы: есть тип

type A=record
     time:integer;
     data:byte;
end;

и есть динамический массив

 ObjectA:array of A;

вот, мне нужно вызвать этот массив в другом юните, вопрос - как это описать в public ? или просто подскажите где,что и как описать?

p.s. понимаю что вопрос из глупых, но тем не менее, сижу уже час(

[s-andriano]

public - описываются видимые части объекта,а если Вам нужен просто массив - описывайте его как переменную ДО implementation.

[Trikster]

второй юнит не видит массив из первого, при том что массив ДО implementation описан, а во втором прописан uses unit1

[s-andriano]

Так не бывает. Выкладывайте код.

[Trikster]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, XPMan, Unit1, Unit3, ComCtrls;

type
  TMAIN = class(TForm)
    Label1: TLabel;
    Num_Chanels: TEdit;
    E: TLabel;
    R_BUF: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label4: TLabel;
    Shape3: TShape;
    Button1: TButton;
    MainMenu1: TMainMenu;
    XPManifest1: TXPManifest;
    File1: TMenuItem;
    Result1: TMenuItem;
    est1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    About1: TMenuItem;
    About2: TMenuItem;
    About3: TMenuItem;
    AboutProgram1: TMenuItem;
    AboutAuthor1: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Label5: TLabel;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Button2: TButton;
    Label6: TLabel;
    Timer2: TTimer;
    procedure est1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure About2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

    function  Ready(N_chan:integer):boolean;
    procedure Choose(N,t2,t3:integer);
    procedure Sent(i,t2:integer);
    procedure Sent_Sattelite(t3:integer);
    procedure Init;
    procedure WriteA(time,data:integer);

    procedure Num_ChanelsChange(Sender: TObject);
    procedure Num_ChanelsKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
 private
 public

end;

type CHANEL=record
     busy:boolean;
     data:byte;
end;

type A=record
     time:integer;
     data:byte;
end;


const
T=5;
N=4;
E=3;

var
  MAIN: TMAIN;
  i,j,kk:integer;
  t1,t2,t3:integer;
  sum:integer;
  ObjectA:array of A;
  CH:array [1..N] of CHANEL;
  BUF:array[1..E] of byte;
 // N,E:integer;
  Digits:set of byte;


implementation

uses Unit4;
{$R *.dfm}

и во втором юните

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Unit2;

type
  TResults = class(TForm)
    StringGrid1: TStringGrid;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Results: TResults;

implementation

{$R *.dfm}

end.

[Stilet]

и во втором юните

Он же пуст...

[Человек_Борща]

Вы путаете модуль с классом.

ДО implementation, в секции var объявите нужную переменную с нужными данными, и добавьте этот модуль в uses другого модуля(где нужен он), ДО implementation.

[Trikster]

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Unit2;

type
  TResults = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Results: TResults;

implementation

{$R *.dfm}

procedure TResults.FormCreate(Sender: TObject);
begin
  MAIN.<вот тут нету переменной ObjectA из первого юнита>
end;

end.

[Человек_Борща]

Держите пример:

Основной модуль(Unit1):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Unit2.ee.msg1);
end;

end.

Дополнительный(Unit2):

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
 s1='message1';

type
  TRec=record
    msg1:string;
  end;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ee:TRec;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
 ee.msg1:=s1;
end;

end.

Все работет. Я вижу в Unit1 переменную из Unit2.

Если хотите через класс передавать, то обьявите перенную в секции public класса. Далее вы должны вызывать код <Переменная класса>.<переменная>

[Trikster]

а блин, вызов не через форму, а через код, вот я туплю. прописал Unit2.<дальше все видит>. Лови +