| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вынести в отдельный юнит, свои Конструкторы? (constr) [D7, XP]
Logger © (2008-08-13 21:09:00)Типа того...
Unit MyConstr;
...
constr
mess_1 = 'Привет!';
mess_2 = 'Как Сам!';
mess_3 = 'Ошибка!';
...
И использовать юнит в последствии в своей программе?
DVM (2008-08-13 22:18:00) [1]
> Дима Логгер (13.08.08 22:13) [28]
Наверное, лучше будет для строковых констант так:
unit MyConstr;
interface
resourcestring
rsMess1 = 'Привет!';
rsMess2 = 'Как Сам!';
rsMess3 = 'Ошибка!';
implementation
end.
Дима Логгер (2008-08-13 22:13:00) [2]
> Германн © (13.08.08 22:08) [27]
Нет все верно, кривые руки - спокойно писать не дають! Сорри за флуд и спасибо за ликбез!
Проверил все работает норм, видать геомагнитные бури были :)))
Германн (2008-08-13 22:08:00) [3]
> Привожу:
>
>
> > {RASkov} © (13.08.08 21:49) [19]
Имена юнитов не совпадают.
{RASkov} (2008-08-13 22:08:00) [4]> [24] Дима Логгер (13.08.08 22:06)
> Привожу:
Ты не свой привел.
Да [19] и [20] - не вяжутся.
Германн (2008-08-13 22:07:00) [5]
> {RASkov} © (13.08.08 22:05) [23]
Олимпиаду смотришь слишком часто :)
Дима Логгер (2008-08-13 22:06:00) [6]
> Германн © (13.08.08 22:01) [21]
Привожу:
> {RASkov} © (13.08.08 21:49) [19]
{RASkov} (2008-08-13 22:05:00) [7]> синтасически
Я не китаЯц) Просто так получилось)
{RASkov} (2008-08-13 22:04:00) [8]> [20] Дима Логгер (13.08.08 21:56)
> // Не катит сие, почему?
Потому, как нехотим читать хэлп.
В [20] синтасически верно.
Германн (2008-08-13 22:01:00) [9]
> Не катит сие, почему?
Тогда приведи и текст MyConst.
Дима Логгер (2008-08-13 21:56:00) [10]
> {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.
{RASkov} (2008-08-13 21:49:00) [11]> [18] Дима Логгер (13.08.08 21:44)
> я не смог создать юнит с константами, не знаком с шаблоном Unit'a
Достаточно попросить об этом среду Делфи. Ну не в блокноте же пишешь?
unit MyConstr;
interface
const
mess_1 = 'Привет!';
mess_2 = 'Как Сам!';
mess_3 = 'Ошибка!';
implementation
end.
Дима Логгер (2008-08-13 21:44:00) [12]
> {RASkov} © (13.08.08 21:40) [17]
Как его использовать в Uses мне известно, я не смог создать юнит с константами, не знаком с шаблоном Unit'a
{RASkov} (2008-08-13 21:40:00) [13]> [16] Дима Логгер (13.08.08 21:35)
[12] прочитал?
В виду твоего общего вопроса, более конкретного ответа дать тяжело.
Что же тебе не понятно или читать справку неохота?
Дима Логгер (2008-08-13 21:35:00) [14]
> Сергей М. © (13.08.08 21:27) [15]
Прекратил, сорри за баловство, так что Вы любезный мне скажите?
Сергей М. (2008-08-13 21:27:00) [15]Каком кверху.
Для начала прекрати балаган с переодеваниями.
{RASkov} (2008-08-13 21:26:00) [16]> [13] Не Сергей М. (13.08.08 21:24)
Прямо просьба закрыть ветку?
Не Сергей М. (2008-08-13 21:24:00) [17]
> Сергей М. © (13.08.08 21:22) [11]
Как сие реализовать? :)))
{RASkov} (2008-08-13 21:23:00) [18]> [9] Logger (13.08.08 21:21)
Теперь осталось почитать про оператор uses. Если, конечно, знаком с областями видимости... иначе сначало про области видимости.
Сергей М. (2008-08-13 21:22:00) [19]
> const
Малацца.
Но const - это отнюдь не конструкторы, а константы.
Так что же, Дима Логгерь, тебе собссно не понятно ?
{RASkov} (2008-08-13 21:22:00) [20]> [9] Logger (13.08.08 21:21)
Другое дело :)
| |
Страницы: 