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

> ВНИМАНИЕ!

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

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





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

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


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


Гость






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

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





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

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


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


Новичок
*

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

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


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


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

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

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


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


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

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


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





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

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


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

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

 



- Текстовая версия 13.07.2025 21:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"