BlackSun: т.е. получается, что значение IdxMax копируется на For в др. ячейку памяти. Далее IdxMax может меняться, но цикл возьмёт его первичное значение на For. Если эта ячейка памяти содержит 0, то в моём случае будет выход из цикла, похоже, она содержит MaxLong или же случайное значение (не записанное)!

Добавлено 19.12.20, 15:51

отладка показала бесконечный проход по циклу, возможно, был прыжок на Next в начало процедуры. Не знаю тонкостей Native-кода, но смысл проблемы ясен.

Добавлено 19.12.20, 15:55
Отладка на exe через точки вывода на коде, ведь в дизайнере всё было OK. Кстати, как правильно было делать отладку в exe-варианте, не сталкивался с этим.

Добавлено 19.12.20, 16:02

я где-то читал, что такой код прогеры называют соплями, но меня лично раздражают проблемы с кучей вложенных If... End If - чуть где ошибся - и головняк с поиском - где не закрыл If; компилятор мог бы и сам это определить, шагая от внутреннего If к внешнему, но он не может, а ругается сразу на For...Next!

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843037

Mikle:
Какая разница? Пока For не выполнится, Next не знает, что там MaxIdx.
Простейший пример:

На выходе получает "1". То есть один раз выполнилось "i=i+1", и далее выход по Next.
Поменяй "For i = -5 To d" - всё равно на выходе "1", то есть цикл работал, но до нуля, то, что там d=8, Next не знал.
Значит в IDE и P-Code переменная конца цикла равна "0" до того, как выполнился For.
Но в нативном коде Next не знает даже адреса перехода в начало, цикл не зацикливается, а зависает на перехода по неизвестному (возможно, случайному) адресу после Next.

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843036

BlackSun:
заменил на

также не работает...

Next должен компилироваться в:

i=i+1
If I<=MaxIdx then goto НачалоТелаЦикла

Т.е. имеем просто значение MaxIdx в памяти и всё должно работать. Но, видно, что-то не так.

Добавлено 19.12.20, 15:05

Почему?

Добавлено 19.12.20, 15:10
Да, в P-Code работает. В Native - виснет.

Добавлено 19.12.20, 15:12

Тело цикла очень большое, и выносить его в процедуру - головняк. Тем более, что нужно прыгнуть где-то в середину, при выносе в процедуру надо не забыть ни одной переменной передать ей и вернуть всё правильно, также возможны прыжки в разные места тела и т.д. - лопатить старый код хлопотно, но на поиск проблемы день ушёл :(, никогда бы не подумал, что Next может так сработать, тело лопатил... Проще было прыгнуть в нужное место - так и написал.

Добавлено 19.12.20, 15:21
Значит, дизайнер работает в P-Code при выполнении?

Добавлено 19.12.20, 15:26

Next всё одно должен с чем-то сравнивать I, он же не может поставить безусловный переход на начало тела в Native варианте?

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843034

Mikle:
Если скомпилировать в P-Code - будет работать.

Вообще-то, даже простое использование GoTo в наше время - это моветон, но такой прыжок - однозначно ошибка. И совершенно непонятно, зачем это может понадобиться.
Выражение, которое находится после слова "To", вычисляется в момент срабатывания "For", при таком прыжке оно не вычислено, то есть "Next" не знает, возвращаться, или уже не надо.

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843032

BlackSun: Если бы я работал на уровне ассемблера, не спрашивал бы тут. Могу exe подцепить. Может, что-то не так в настройках компиляции? Может, у меня нет каких-то патчей? Может нельзя прыгать в тело цикла без отработки кода на For - ведь при прямом заходе в цикл (Test False) код работает... ?

Но читатели же могут скомпилить у себя и проверить... На разных Win также...

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843030

B.V.:
У меня не на чем собрать. Покажи ассемблер этой функции, там надо разбираться

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843027

flarens: Тоже бился над этой проблемой. Сложно нагуглить решение, потому скину сюда. Специально даже на форуме зарегался.
Вот моя итоговая функция самописного класса RichEdit



Если передать true - будет WordWrap, если false - не будет.

https://forum.sources.ru/index.php?showtopic=269883&view=findpost&p=3843026

Сергей85: Пусть есть строка "23456879". Я хочу поместить ее в переменные __int64, long, float, long long.

Если есть .ToInt, .ToDouble - то с другими типами проблема.

Как реализовать?

https://forum.sources.ru/index.php?showtopic=421026&view=findpost&p=3843024

BlackSun: В дизайнере код работает - при нажатии кнопки получаем "OK" на выходе:



В exe код зависает (Win10), не срабатывает Next (происходит зацикливание). В чём причина?

https://forum.sources.ru/index.php?showtopic=421025&view=findpost&p=3843023

Jin X: Всех приветствую!

Подскажите, как (и можно ли) в Delphi (интересует, в частности 7, да и вообще в целом) создать shared data секцию в DLL и объявить в ней переменные (или типизированные константы)?

Т.е. чтобы DLL некоторую общую область памяти, независимо от того, из какого процесса она вызвана.

https://forum.sources.ru/index.php?showtopic=421023&view=findpost&p=3843019

astronom1987: Форумчане, скажите, пожалуйста, как сделать так, чтобы Android для PC или хотя бы его модификация последняя версия Phoenics OS успешно запускались бы на VirtualBox? Мне вообще-то нужно, что устанавливать приложения Android при помощи своего Google аккаунта на обычном компьютере, но anbox мне пожалуйста не предлагать. Так как в Debian (MX Linux 19.3) на котором я сижу он тоже не хочет работать.
После установки обеих Android систем меня просто выбрасывает в эту консоль и ничего не хочет запускаться!

44444444444444444444444444444.png (, : 3)

https://forum.sources.ru/index.php?showtopic=421020&view=findpost&p=3843015

доктор Рагин: Спасибо комментаторам этого видео за то, что помогли собрать воедино золотой сборник цитат Стаса, который я представляю вашему вниманию:
"петелька вместо головы. Но это не самое важное в женщине"
"Это вы уже путаете биологию с культурой. А это неправильно. Это называется социал-дарвинизм"
"Людей есть экономически не выгодно, разве что по праздникам"
"Женщине не надо доказывать, что она жизнеспособная и крутая. Если она до сих пор не сдохла - значит все в ней прекрасно"
"Кто не понял - вымер"
"И, если это не лаборант чихнул в пробирку, то мы можем чётко 100% утверждать..."
"Споткнулся и на копьё напоролся... два раза"
Добавлю в копилку цитат: "И пока альфа-самец кричит: "Ну где он там? Я его порву сейчас!", его оппонент в это время бреет бошку, и мажет салом уши"

https://www.youtube.com/watch?v=dEthxyFsbV8

https://forum.sources.ru/index.php?showtopic=338718&view=findpost&p=3843011

Prince: NROL-108 Mission
Поправил ссылку.
NROL - cпутники военно-космической разведки США.
Список космических аппаратов NROL
Погода отличная, все маневры 1-й ступени видны, и наконец-то нормальное видео момента посадки.

https://forum.sources.ru/index.php?showtopic=278766&view=findpost&p=3842957

sergioK:
Производительность чего Линукса? Как ее измеряли ?

С цетным пофилем никаких косяков не замечал, а вот с VMware чудеса, не дает выхода в интернет,
как будто стоит host only. Убрал , снес поставил заного , все равно таже хрень,
VBox бежит как часы .

https://forum.sources.ru/index.php?showtopic=421012&view=findpost&p=3842919

B.V.:

2080Ti всё.
Но SLI из двух Паскалей.. могёт :)

https://forum.sources.ru/index.php?showtopic=410681&view=findpost&p=3842914

korvin:
Производительность заметно ниже.

И какой-то косяк с цветовым профилем: цвета отличались от хоста, например серый фон в гостевой ОС отличался от хостовой и выглядел зеленоватым.

https://forum.sources.ru/index.php?showtopic=421012&view=findpost&p=3842904

sergioK:
А что у VBox было не так ?

https://forum.sources.ru/index.php?showtopic=421012&view=findpost&p=3842901

ViktorXP: Мое новое приобретение 3070

1_Superposition_Benchmark_v1.1_8350_1608104359.png (, : 31)
2_Superposition_Benchmark_v1.1_40659_1608104107.png (, : 26)
3_Superposition_Benchmark_v1.1_10538_1608104584.png (, : 29)

https://forum.sources.ru/index.php?showtopic=410681&view=findpost&p=3842898

estra: В этом и прелесть задачи - если нельзя, но очень хочется, то можно :D
На самом деле прогресс наметился, на тестовом приложении с таймером я добился нужного результата.
В боевую прикладу перенести не получается, буду дальше копать...

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842897

Rouse_: Ну во первых LockWindowUpdate(PopupMenu1.Handle);
PopupMenu1.Handle - это не хэндл окна меню, это хэндл самого меню. Чтобы получить хэндл окна надо хотя бы GetForegroundWindow сказать.

Во сторых согласно майкросовтовских гуидлайнам у меню не должно быть
1. скролов (из-за большого количества пунктов меню)
2. двойного уровня сабменю
3. динамического изменения элементов в момент отображения

Все это делает крайне не удобным работу с меню и если в GUI есть хотя бы один из этих пунктов, надо что-то менять.

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842896