Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.09.28;
Скачать: CL | DM;

Вниз

Как вынести в отдельный юнит, свои Конструкторы? (constr)   Найти похожие ветки 

 
Logger   (2008-08-13 21:09) [0]

Типа того...

Unit MyConstr;

...
constr
mess_1 = "Привет!";
mess_2 = "Как Сам!";
mess_3 = "Ошибка!";
...


И использовать юнит в последствии в своей программе?


 
{RASkov} ©   (2008-08-13 21:12) [1]

Ты долго думал перед постом?


 
Дима   (2008-08-13 21:14) [2]


> {RASkov} ©   (13.08.08 21:12) [1]


А что не так?


 
Сергей М. ©   (2008-08-13 21:14) [3]

А может это дворник ?


 
Logger   (2008-08-13 21:15) [4]


> {RASkov} ©   (13.08.08 21:12) [1]
>
> Ты долго думал перед постом?


Да, что именно Вас так возмутило?


 
Сергей М. ©   (2008-08-13 21:15) [5]

Дима, а Logger - это фамилие такой, да ?


 
{RASkov} ©   (2008-08-13 21:16) [6]

> [2] Дима   (13.08.08 21:14)

Вопрос ниже двоешного :)


 
{RASkov} ©   (2008-08-13 21:16) [7]

> [4] Logger   (13.08.08 21:15)

твои орешки


 
{RASkov} ©   (2008-08-13 21:18) [8]

Может всеж не конструкторы интересуют, а?
Кстати, Дима Logger, проверь слово constr на вшивость....


 
Logger   (2008-08-13 21:21) [9]


> {RASkov} ©   (13.08.08 21:18) [8]


const


 
{RASkov} ©   (2008-08-13 21:22) [10]

> [9] Logger   (13.08.08 21:21)

Другое дело :)


 
Сергей М. ©   (2008-08-13 21:22) [11]


> const


Малацца.

Но const - это отнюдь не конструкторы, а константы.

Так что же, Дима Логгерь, тебе собссно не понятно ?


 
{RASkov} ©   (2008-08-13 21:23) [12]

> [9] Logger   (13.08.08 21:21)

Теперь осталось почитать про оператор uses. Если, конечно, знаком с областями видимости... иначе сначало про области видимости.


 
Не Сергей М.   (2008-08-13 21:24) [13]


> Сергей М. ©   (13.08.08 21:22) [11]


Как сие реализовать? :)))


 
{RASkov} ©   (2008-08-13 21:26) [14]

> [13] Не Сергей М.   (13.08.08 21:24)

Прямо просьба закрыть ветку?


 
Сергей М. ©   (2008-08-13 21:27) [15]

Каком кверху.

Для начала прекрати балаган с переодеваниями.


 
Дима Логгер   (2008-08-13 21:35) [16]


> Сергей М. ©   (13.08.08 21:27) [15]


Прекратил, сорри за баловство, так что Вы любезный мне скажите?


 
{RASkov} ©   (2008-08-13 21:40) [17]

> [16] Дима Логгер   (13.08.08 21:35)

[12] прочитал?
В виду твоего общего вопроса, более конкретного ответа дать тяжело.
Что же тебе не понятно или читать справку неохота?


 
Дима Логгер   (2008-08-13 21:44) [18]


> {RASkov} ©   (13.08.08 21:40) [17]


Как его использовать в Uses мне известно, я не смог создать юнит с константами, не знаком с шаблоном Unit"a


 
{RASkov} ©   (2008-08-13 21:49) [19]

> [18] Дима Логгер   (13.08.08 21:44)
> я не смог создать юнит с константами, не знаком с шаблоном Unit"a

Достаточно попросить об этом среду Делфи. Ну не в блокноте же пишешь?

unit MyConstr;

interface
const
mess_1 = "Привет!";
mess_2 = "Как Сам!";
mess_3 = "Ошибка!";

implementation

end.


 
Дима Логгер   (2008-08-13 21:56) [20]


> {RASkov} ©   (13.08.08 21:49) [19]


В программе использую так:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, MyConst;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   procedure Label1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption :=  mess_1; // Не катит сие, почему?
end;

end.


 
Германн ©   (2008-08-13 22:01) [21]


> Не катит сие, почему?

Тогда приведи и текст MyConst.


 
{RASkov} ©   (2008-08-13 22:04) [22]

> [20] Дима Логгер   (13.08.08 21:56)
> // Не катит сие, почему?

Потому, как нехотим читать хэлп.
В [20] синтасически верно.


 
{RASkov} ©   (2008-08-13 22:05) [23]

> синтасически

Я не китаЯц) Просто так получилось)


 
Дима Логгер   (2008-08-13 22:06) [24]


> Германн ©   (13.08.08 22:01) [21]


Привожу:


> {RASkov} ©   (13.08.08 21:49) [19]


 
Германн ©   (2008-08-13 22:07) [25]


> {RASkov} ©   (13.08.08 22:05) [23]

Олимпиаду смотришь слишком часто :)


 
{RASkov} ©   (2008-08-13 22:08) [26]

> [24] Дима Логгер   (13.08.08 22:06)
> Привожу:

Ты не свой привел.
Да [19] и [20] - не вяжутся.


 
Германн ©   (2008-08-13 22:08) [27]


> Привожу:
>
>
> > {RASkov} ©   (13.08.08 21:49) [19]

Имена юнитов не совпадают.


 
Дима Логгер   (2008-08-13 22:13) [28]


> Германн ©   (13.08.08 22:08) [27]


Нет все верно, кривые руки - спокойно писать не дають! Сорри за флуд и спасибо за ликбез!

Проверил все работает норм, видать геомагнитные бури были :)))


 
DVM ©   (2008-08-13 22:18) [29]


> Дима Логгер   (13.08.08 22:13) [28]


Наверное, лучше будет для строковых констант так:

unit MyConstr;

interface

resourcestring
 
 rsMess1 = "Привет!";
 rsMess2 = "Как Сам!";
 rsMess3 = "Ошибка!";

implementation

end.



Страницы: 1 вся ветка

Текущий архив: 2008.09.28;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.023 c
2-1218698459
kopernik21187
2008-08-14 11:20
2008.09.28
параметр SQL-запроса в ADOQuery


2-1219219486
sD
2008-08-20 12:04
2008.09.28
Работа с dxBarManager (DevExpress)


6-1193220112
Alex_C
2007-10-24 14:01
2008.09.28
HTTPS и POST метод


2-1219056039
dmitry_12_08_74
2008-08-18 14:40
2008.09.28
как послать в диалоговое окно сообщение


2-1218991319
DON
2008-08-17 20:41
2008.09.28
Имитация нажатия клавиши или активности мыши