| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

AndrewVolkov ©   (2002-11-20 20:49:00) 

К примеру в модуле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. Если кто в курсе подскажите.
Спасибо

---

AndrewVolkov   (2002-11-20 22:53:00) [1]

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

---

TTCustomDelphiMaster   (2002-11-20 22:12:00) [2]

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

intarface
uses options;

---

AndrewVolkov   (2002-11-20 22:00:00) [3]

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

---

AndrewVolkov   (2002-11-20 21:07:00) [4]

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

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

---

AndrewVolkov   (2002-11-20 21:05:00) [5]

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);

---

Anatoly Podgoretsky   (2002-11-20 21:04:00) [6]

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

---

Наверх