Delphi7 Многомодульная программа

[viktor178]

На форме: Panel1; Button1; Memo1;

Пытаюсь создать программу состоящую из двух модулей Unit1 и Unit2.
В главном модуле Unit1 в секции type создал пользовательский тип данных - массив(type Tmas = array[1..4] of string.
Инициализировал переменную этим типом(var mas1:Tmas и передал её в качестве параметра процедуры во второй модуль(Unit2.str(mas1), где создал процедуру обработки массива.
В главном модуле Unit1 создал вывод результата в Memo1.

При компиляции программы происходит ошибка в строке (Unit2.str(mas1):
-------------
[Error] Unit1.pas(28): Types of actual and formal var parameters must be identical
-------------
Подскажите пожайлуста, что я не так делаю?
Заранее спасибо.

Вот полный код программы с обоими модулями:

----------------------------------------------------

Модуль Unit1:

	// Unit1 главный модуль программы

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Unit2;
type
  Tmas = array[1..4] of string; // создаём пользовательский тип массив
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
{$R *.dfm}

// главная программа
procedure TForm1.Button1Click(Sender: TObject);
var mas1:Tmas;
begin
 Unit2.str(mas1); // вызов прцедуры из модуля Unit2
 Memo1.Lines.Add(mas1[1]); 
end;
end.

Модуль Unit2:

	// Unit2 второстепенный модуль программы

unit Unit2;

interface
type Tmas = array[1..4] of string;

    // объявление прцедуры
    procedure str(var mas2:Tmas);

implementation
// прцедура
procedure str(var mas2:Tmas); // прцедура
begin
 mas2[1]:='Privet'; // присваиваем первому элементу массива
end;
end.

[Serge_Bliznykov]

опишите тип TMas ОДИН раз.
два описания - с точки зрения компилятора это РАЗНЫЕ типы!!!

[viktor178]

Я так уже делал.
Создавал тип TMas только в модуле unit1, в этом случае компилятор выдавал ошибку в модуле unit2 в строке:
procedure str(var mas2:Tmas);

Текст ошибки:
[Error] Unit2.pas(6): Undeclared identifier: 'Tmas'

Я и подумал, может быть пользовательский тип нужно создавать и во втором модуле.

Сейчас ещё раз убрал строку
type Tmas = array[1..4] of string;
из модуля unit2, но бесполезно, всё равно ошибка.

Сейчас код в unit2 такой:

unit Unit2;
interface

    // объявление прцедуры
    procedure str(var mas2:Tmas);

implementation

 // прцедура
procedure str(var mas2:Tmas); // прцедура
begin
 mas2[1]:='Privet'; // присваиваем первому элементу массива
end;
end.

ошибка в модуле unit2 в строке:
procedure str(var mas2:Tmas);

Текст ошибки:
[Error] Unit2.pas(6): Undeclared identifier: 'Tmas'

[NewLamer&Programer]

допиши во втором юните uses Unit1

[GetMax]

допиши во втором юните uses Unit1

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

[viktor178]

Всё сделал так как посоветовал GetMax.
Программа откомпилировалась и заработала!
Огромное спасибо всем участникам форума за советы!

Вот полный код программы:

Модуль Unit1:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, Unit3, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

// главная программа
procedure TForm1.Button1Click(Sender: TObject);
var mas1:Tmas;
begin
Unit2.str(mas1); // вызов прцедуры из модуля Unit2
 Memo1.Lines.Add(mas1[1]);
end;
end.

Модуль Unit2:

unit Unit2;
interface
uses
   Unit3;

    // объявление прцедуры
    procedure str(var mas2:Tmas);

implementation

 // прцедура
procedure str(var mas2:Tmas); // прцедура
begin
 mas2[1]:='Privet'; // присваиваем первому элементу массива
end;
end.

Модуль Unit3:

unit Unit3;
interface

type Tmas = array[1..4] of string; // создаём пользовательский тип массив

implementation
end.

[Аватар]

И получим ошибку перекрестного использования модулей

Не обязательно. Если в одном модуле ссылка на другой в разделе interface, а в другом на первый - в разделе implementation, то все будет корректно

[viktor178]

Попробовал сделать так как посоветовал Аватар, произошла ошибка в строке
procedure str(var mas2:Tmas);
модуля Unit2.

[Error] Unit2.pas(5): Undeclared identifier: 'Tmas'

Вот полный код программы:

Модуль Unit1:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls, ExtCtrls;
type
  Tmas = array[1..4] of string; // создаём пользовательский тип массив
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

// главная программа
procedure TForm1.Button1Click(Sender: TObject);
var mas1:Tmas;
begin
Unit2.str(mas1); // вызов прцедуры из модуля Unit2
 Memo1.Lines.Add(mas1[1]);
end;
end.

Модуль Unit2:

unit Unit2;
interface

    // объявление прцедуры
    procedure str(var mas2:Tmas);

implementation
uses
   Unit1;

 // прцедура
procedure str(var mas2:Tmas); // прцедура
begin
 mas2[1]:='Privet'; // присваиваем первому элементу массива
end;
end.

[Аватар]

viktor178, наоборот сделай ссылки

unit Unit1;
interface
implementation
uses Unit2;
...
unit Unit2;
interface
uses Unit1;
implementation

[viktor178]

Действительно, всё получилось, спасибо Аватар!