IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> динамическая форма, Delphi
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Помогите плиз!
У меня проект из 2-х форм, первая - окно программы(игры), вторая - окно десятки лучших.
Вторую я патаюсь создавать динамически, но нужно использовать в ее Unit2 переменную из Unit1.
Я пишу после implementation в unit2 - uses unit1; Но это не помогает... Что делать??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Что значит "не помогает"? Покажи, КАК и какую переменную ты пытаешься использовать, и что именно происходит...

P.S. Переезжаем в Дельфи
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


В процедуре из Unit1 я использую переменную-счетчик k , в которой хранится кол-во набранных очков.
Мне нужно эту же переменную использовать в Unit2 для Десятки лучших, чтобы добавить новую запись в базу данных. Я динамически создаю вторую форму, пишу: uses unit1; но выводится сообщение(примерно), что нет такой переменной..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


Если форму создаеш динамически, передавай переменную в конструктор.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
процедуре из Unit1


Мне кажется это ключевые слова ... Переменная которую ты используешь в процедуре - локальная, и "живет" только во время работы этой процедуры. Переделай процедуру в функцию (которая будет возвращать твое "k") и объяви в Unit1 глобальную переменну, которой присвоиш значение этой функции.

ps код у тебя суперсекретный? Скрываешь ? Так мы долго можем гадать что тебе нужно.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Спасибо всем good.gif получилось!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 1:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name