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

← →
AndrewVolkov (2002-11-20 20:49) [0]

К примеру в модуле1 создан следующий тип
:
TRegType = (rDBMin, rDBMax, rDDMin, rDDMax, rGMin, rGMax, rVMin, rVMax, rPMin, rPMax, rRG1, rRG2, rRG1Place);

В модуле2 создается функция:

функция1(rr:TRegType):boolean;

Вся проблема, что он не видит TRegType. Я могу конечно добавить этот тип и в модуль 2, но тогда он ругнется с ошибкой, что Модуль1.Tregtype не соответствует Модуль2.Tregtype. Если кто в курсе подскажите.
Спасибо

← →
Anatoly Podgoretsky © (2002-11-20 21:04) [1]

В какой секции объявлен TRegType

← →
AndrewVolkov (2002-11-20 21:05) [2]

unit options;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, ExtCtrls, ActnList, Placemnt, StdCtrls, Buttons, Registry,
ComCtrls, ImgList, Mask, ToolEdit, Gauges, RxGrdCpt, dbcgrids, fmOpt;

type
TRegType = (rDBMin, rDBMax, rDDMin, rDDMax, rGMin, rGMax, rVMin, rVMax, rPMin, rPMax, rRG1, rRG2, rRG1Place);
TRegRead = (rCheck, rView);

← →
AndrewVolkov (2002-11-20 21:07) [3]

В другом модуле хочу использовать след. процедуру

function EditKeyPressRG1(rKey:Char; Editlen:SmallInt; rReg:TRegType):Char;

← →
AndrewVolkov (2002-11-20 22:00) [4]

P.S. в функции в другом модуле в Var я могу написать
rReg:TregType - он это поймет, а вот именно в объявлении функции это не проходит почему-то???

В "другом модуле"

intarface
uses options;

← →
AndrewVolkov (2002-11-20 22:53) [6]

Биг Сенкс. Усе поехало

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