Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизКак сделать, чтобы объявленный тип был виден из другого юнита??? Найти похожие ветки
← →
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 - он это поймет, а вот именно в объявлении функции это не проходит почему-то???
← →
TTCustomDelphiMaster (2002-11-20 22:12) [5]В "другом модуле"
intarface
uses options;
← →
AndrewVolkov (2002-11-20 22:53) [6]Биг Сенкс. Усе поехало
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c