Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Вниз

Как вынести в отдельный юнит, свои Конструкторы? (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.5 MB
Время: 0.044 c
2-1218725736
BioStaR
2008-08-14 18:55
2008.09.28
Вырезание из строки


15-1217821033
Slider007
2008-08-04 07:37
2008.09.28
С днем рождения ! 4 августа 2008 понедельник


3-1206562057
Fin
2008-03-26 23:07
2008.09.28
Узнать Значение счётчика


15-1217924854
pasha_golub
2008-08-05 12:27
2008.09.28
PHP: вывод перенаправить в файл.


15-1217828347
TUser
2008-08-04 09:39
2008.09.28
Скончался А.И. Солженицын





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский