Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка... / 4 сообщений из 4, страница 1 из 1
12.05.2004, 11:39
    #32514452
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка...
в главной проге
Release my_var
do form form1
Read Events

в инете формы
PUBLIC my_var

На объявление переменной my_var в инете формы выдает ошибку:

Illegal redefinition of variable my_var

Как с этим справится...
Заранее спасибо...
...
Рейтинг: 0 / 0
12.05.2004, 12:41
    #32514583
Dik76
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка...
"инет" - это init? Если да то, у меня ошибка не вылетает.
...
Рейтинг: 0 / 0
12.05.2004, 13:17
    #32514674
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка...
Ну, значит уже существует переменная с таким именем. Проверить факт существования можно так:

IF TYPE("m.My_Var")="U"
* Ничего нет
ELSE
* Есть переменная с именем m.My_Var
ENDIF

А где именно ты определил эту переменную ищи сам. Например, в отладчике можно поставить признак останова в момент изменения значения переменной.
...
Рейтинг: 0 / 0
12.05.2004, 13:54
    #32514738
IgorProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка...
Незаметил разветвление в проге...

главная прога
My_Var = "Е"

do my_prog with My_Var

*********************
my_prog.prg
...........................
if bred
release My_Var
do form form1
endif
*********************

Init form1
PUBLIC my_var
Тип переменной проверял он Und...
Все-равно ошибка...

Проблема была в передаче параметров...

Если в гл. проге исправить...
My_Var_Pered = My_Var
do my_prog with My_Var_Pered

Не уж передача переменной как параметра зажимала ее???
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Ошибка... / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]