powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / .tlb файл и глюк амперсанда(&)
2 сообщений из 2, страница 1 из 1
.tlb файл и глюк амперсанда(&)
    #32364921
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем добрый вечер...
И с наступающим...

Что радует так то, что 8-ой(в отличии от 6-ой) лисе убрали глюк при сборе *.tlb с кодировкой...

Но вот добавился глюк с выполнением команды &

У меня есть *.txt файл
примерно такого содержания
my_form
.left = 10
.top = 5

В init-е формы запускаю прогу которая отрабатывает в цикле
mm = fopen("*.txt") &&открыть файл
a = fgets(mm) &&прочитать строку
with &a &&выполнить
do while !Eof()
b = fgets(mm) прочитать строку
&b &&выполнить
enddo
endwith

Если запускать в 6-ой лисе через
aa = createibject(""my_obj.my_pr)
aa.zapusk

в описанном олеклассе процедура zapusk
Procedure zapusk
do form form1 &&где выше упомянутый init
endproc
или просто запустить екзешник, то все отрабатывает...

В 8 лисе екзешник отрабатывает нормально,
а вот выполнение команды &:
говорит что неизвестная команда...
но только в тех случаях когда работаешь через & с объектами...
типа:
a = "my_form.top = 10"
&a &&ошибка

Может кто подскажет как это можно обойти или побороть...
Заранее спасибо...
...
Рейтинг: 0 / 0
.tlb файл и глюк амперсанда(&)
    #32364970
lnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так не покатити
&a. && Точка после а
?

Или так:

a = "my_form.top = 10"
a1=Substr(a,1,AT('=',a)-1)
a2=Substr(a,AT('=')+1)
&a1.=val(a2)
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / .tlb файл и глюк амперсанда(&)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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