Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Объявление переменных смежных модулей [D7, XP]

Страницы: 1 2 >
Alex8 © (2007-10-27 13:51:00)
Уважаемые мастера, подскажите, пожалуйста
как быть в следующем случае:

В одном из модулей такая процедура

Procedure A (pFrm: Tform);
begin
pFrm.ab := ' ';
end;
где ab-глобальные переменные (похожие), объявленные в разных
формах другого модуля т.е. в pFrm.
Компилятор, естественно выдает, что 'ab' - не декларируема. Что
нужно сделать. Спасибо.

Anatoly Podgoretsky (2007-10-28 00:49:00) [1]
> vpbar (27.10.2007 23:13:20) [20]

Ну разве что, если он заплатит.

Alex8 (2007-10-28 00:12:00) [2]
> Ага. Твоя и за так не нужна.

Скучно!

vpbar (2007-10-27 23:13:00) [3]
>>Alex8 (27.10.07 23:02) [19]
Ага. Твоя и за так не нужна.

Alex8 (2007-10-27 23:02:00) [4]
> vpbar © (27.10.07 22:09) [17]

> Зачем. Вдруг ты программу напишешь а я ей попользьваться
> решу.

Хорошая идея. Я продам ее тебе за бешенные деньги.

Сергей М. (2007-10-27 22:35:00) [5]

> Чтонужно сделать

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

vpbar (2007-10-27 22:09:00) [6]
>>Alex8 (27.10.07 21:59) [16]
С анклицким не дружим? Ну хотя бы словарем пользоваться научись.
>>Как? Подскажи тупому, необразованному.
>>Самый примитивный пример.
Зачем. Вдруг ты программу напишешь а я ей попользьваться решу.
Самый примитивный - TForm1(pForm).ab

Alex8 (2007-10-27 21:59:00) [7]
За полезную ссылку спасибо.
Но что означает "Regards, LVT".
Подпись, ругательство, намек на что-то, какой-то термин ?
Просветите, пожалуйста .

Leonid Troyanovsky (2007-10-27 20:07:00) [8]

> Alex8 (27.10.07 19:24) [14]

> Если это ответ на мой вопрос, то

Будет вопрос - будет и ответ, надеюсь.
RTFM http://ln.com.ua/~openxs/articles/smart-questions-ru.html

--
Regards, LVT.

Alex8 (2007-10-27 19:24:00) [9]
> Regards, LVT.
Если это ответ на мой вопрос, то
тут желателен комментарий.

Leonid Troyanovsky (2007-10-27 19:10:00) [10]

> Alex8 (27.10.07 17:34) [12]

> Без комментариев.

Ес-но, откуда им быть.

--
Regards, LVT.

Alex8 (2007-10-27 17:34:00) [11]
> Anatoly Podgoretsky © (27.10.07 17:12) [11]
Без комментариев.

Anatoly Podgoretsky (2007-10-27 17:12:00) [12]
> Alex8 (27.10.2007 17:10:10) [10]

Никто, но никто и не будет давать рекомендаций по несуществующему коду.
По существующему коду - эту процедуру надо ликвидировать.

Alex8 (2007-10-27 17:10:00) [13]
> Непонятно зачем выводить в отдельную процедуру.......

Конечно, это не строка, а нормальная процедура.
Я просто привел выжимку, чтобы легче было общаться.
Кто станет разбираться в тонкостях моих процедур.

Alex8 (2007-10-27 17:04:00) [14]
>приведи pFrm к требуемому типу.

Как? Подскажи тупому, необразованному.
Самый примитивный пример.

Anatoly Podgoretsky (2007-10-27 17:02:00) [15]
Непонятно зачем выводить в отдельную процедуру, даже не в метод, одну строчку, ей чего плохо в модулях, чтобы простое присвоение заменять на вызов процедуры, еще и не понимая, как работает ООП.

Плохиш (2007-10-27 16:57:00) [16]

> Alex8 (27.10.07 16:32) [6]

приведи pFrm к требуемому типу.

> Можно, конечно, писать в лоб.
> Form1.ab, Form2.ab ......,
> но это, мягко говоря, громоздко.

Это, немягко говоря, тупо и путь идиота в пропасть...

PS. Пора бы уже ознакомиться с основами ООП.

Alex8 (2007-10-27 16:32:00) [17]
> Ответь в Tform у тебя есть ab
Нет. ab-не базовая переменная.

Ее как-то надо обЪявить в модуле U2,
как принадлежащую формам pForm.
Вот только не соображу, как это сделать.

Можно, конечно, писать в лоб.
Form1.ab, Form2.ab ......,
но это, мягко говоря, громоздко.

Anatoly Podgoretsky (2007-10-27 16:06:00) [18]
Это огрызок а не код, где uses, где заголок класса.
Ответь в Tform у тебя есть ab

Alex8 (2007-10-27 16:04:00) [19]
В Form1 модуля U1
........................
Public
ab: String;
---------------------------------
В Form2 модуля U1
........................
Public
ab: String;
------------------------
В модуле U2 (без форм)

Procedure A (pFrm: Tform);
begin
pFrm.ab := ' ';
end;

Anatoly Podgoretsky (2007-10-27 15:53:00) [20]
> Alex8 (27.10.2007 15:48:02) [2]

Это ты говоришь, а как на самом деле

Страницы: 1 2 >

Наверх

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