"Этажерка" Begin End ..

[Alex2013]

Дело повторяю не в конкретном коде, а в том что он вообще умудрился глючить на "ровном месте" ...
У меня в ноте изредка возможны сбои в памяти ... но уж больно это глюк настырно лез! пока я не переписал код ...
Когда-то давным давно сталкивался с чем-то похожим в каких-то С-ях там глюк был из за "запутывания оптимизатора" ...
Вот я и решил что возможно и тут было тоже самое !

[sign]

Ищите нарушения в вашей программе, а не в "этажерке".
Часто, такое случается при "ломке памяти".
Сейчас вы ловко обошли, но кто знает, где ошибка вылезет в будущем.

[alexs]

Дело повторяю не в конкретном коде, а в том что он вообще умудрился глючить на "ровном месте" ...

Однозначно ошибка в вашем коде...

[Alex2013]

Возможно ... Может даже глючит старая давно не переустанавливаемая мной 7-я винда .
А может это эхо глюка со скриптом .. Там вызовы win-API во внешних функциях однозначно иногда не работают так как надо ..
(Раньше скриптовый движок был упрятан DLL на Дельфи так вообще кошмарило мрачно ... )
Выходов два : или полностью оделить исполнение скриптов от вызовов win-API или просто поискать более надежный скриптовый движок ...
(Как вариант написать свой "медленный но надежный " )

Но текущий вариант работает ... Так что пока "не буду чинить работающие часы" .
Во доведу разработку до "концептуальной функциональности " (то есть реализую все планируемые функции "начерно" ) тогда займусь
ловлей разных "не красивостей ". (Хотя и процессе разработки код постепенно чищу и документирую комментариям, иначе в нем можно просто заблудится... объем то ведь растет и ширится! )

[скалогрыз]

Ошибка в коде, не иначе.

[Alex2013]

Ошибка в коде, не иначе.

...ДНК ...? Не с этим кодом у меня все ок.. Но жизнь "бьет ключом и все по чайнику" ...

[скалогрыз]

Не с этим кодом у меня все ок

про этажерку.
а почему так:

Код: Выделить всё

If not rf1.PSScript1.Compile then begin
  ShowMessage('Синтаксическая ошибка (ввод операции)');
  exit;
end else
  If not rf1.PSScript1.Execute then begin msg('Ошибка выполнения (ввод операции)');
  exit;
  end
else begin
  OPSTR:=GetParam('OPSTR');
  if GetParam('ONECLICK')='1' then GoTo L1 // Жестоко но работет !
end;

а не так:

Код: Выделить всё

If not rf1.PSScript1.Compile then begin
  ShowMessage('Синтаксическая ошибка (ввод операции)');
  exit;
end;

If not rf1.PSScript1.Execute then begin 
  msg('Ошибка выполнения (ввод операции)');
  exit;
end;

OPSTR:=GetParam('OPSTR');
if GetParam('ONECLICK')='1' then GoTo L1 // Жестоко но работет !

?

[zub]

>>Не с этим кодом у меня все ок..
Казнить нельзя помиловать.
Ищите ошибку в коде. она есть.
Скомпильте с heaptrc, проникнитесь в ругань... поотлаживайте и всё встанет на свои места

[Alex2013]

Честно говоря не смог точно воспроизвести именно то тот код которой глючил ...
(По моему, мало кто записывает нерабочий код )

А лишние else действительно похоже рудимент от другой конструкции ...
Но логически ведь все равно верно пусть и избыточно .
Еще раз повторяю я прекрасно знаю что там нужно многое переделать
( Одни только флаги Fa,FT,Cfa (Три разных отвечающих почти за одно и тоже ) говорят, что там еще конь не валялся ...)
И я спросил потому, что эта ошибка может быть не только моей проблемой .

В прочем судя по отзывам, паниковал я видимо, напрасно и ГЛЮК был ЛОКАЛЬНЫЙ.