модули

[ViNT]

Точно не помню, но по-моему достаточно описать отдельный модуль с типами и подключить его к основной программе и к модулю, содержащему функцию.

[AVL]

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

[ViNT]

Сообщение от AVL

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

Увидит, если описать тип в разделе interface, а в главной программе написать

uses MyUnit;
 var x:MyUnit.MyType;

[AVL]

В модуле uses указывается в implementation, а функции и переменные - раньше, в interface. Как тогда в модуле использовать типы из др. модуля?

[ViNT]

А вот тут что-то странное, не получается так.

[kizup]

Заметил такую вещь...почему нельзя использовать циклическое обращение к модулям, например так:

unit first;
....
uses second;
--------------------------------------
unit second;
....
uses first; 


При компиляции выдается ошибка

[Ksanatos]

2AVL
основная прога

uses
  MyUnit;
var
  VarWithTypeFromUnit : TypeFromUnit;

begin
  VarWithTypeFromUnit:=10;
  VarFromUnit:=VarFromUnit+'bla-bla';
end.

модуль

unit MyUnit;
interface
  type
    TypeFromUnit : integer;
  var
    VarFromUnit : string;

  procedure ScUnitInit;

implementation
  uses
    MyScUnit; // ответ на второй вопрос в посте 19

  procedure ScUnitInit;
  begin
    VarFromUnit:=ScUnitFunc;
  end;
end.

второй модуль

unit MyScUnit;
interface
  function ScUnitFunc : string;

implementation
  function ScUnitFunc : string;
  begin
    ScUnitFunc:='bla-bla ';
  end;

end.

2kizup
вроде бы в мп2 рекурсия модулей не реализованна, по крайней мере она там не работает. Насчет 3 версии не знаю, не проверял, но в хелпе ничего нового не замечал об этом.