GASCHE

Это не ко мне, а к тем, кто думает, что FMX устойчива к взлому.

Да нет, просто не представляю того, кто рискнет писать серьезные приложения на FMX, а не серьезные так их и ломать будут не по серьезному.

Нет, но думаю что если FMX настолько устойчива к взлому и примерно представляя как пытаются защитить свой софт некоторые компании, то Kitty не поднимала бы вопрос о дальнейшей судьбе FMX.

Сколько не видел хороших приложений, почти всегда есть взломанные.

Что значит в зависимости от типа c? c[r] := nil; // Или FreeAndNil(c[r]), в зависимости от типа c.

А переменная Button будет видна в этом отдельном потоке в случае завершения процедуры lbxMouseUp?

Ну почему, с сервером какого клиента соединитесь данные того клиента и получите, результат отправите на общий сервер.

Думаю вы не поняли, попробую по-другому. На каждом компе установите программы клиента и сервера. Каждый сервер будет слушать запросы других клиентов и скидывать им данные клиента, установленного на этом же компе.

Перефразирую, читать данные других клиентов с сервера, проводить вычисления, итоги и свои данные скидывать на сервер. Это возможно, на каждом клиенте поднимаете свой сервер, который будет слушать запросы других клиентов и скидывать им требуемые данные. Но не думаю, что это будет проще чем работа с одним сервером.

Как-то не понятно, что мешает каждому клиенту читать данные с сервера, проводить вычисления, итоги скидывать на сервер?

Да, в режиме планшета всплывает.

На 10 у меня не всплывает, уточните это где? Клаву отключил.

Проще выложить исходники и *.exe файлы. Тогда сравнение будет более объективным.

Если можно принимать данные блоками, то можно так WHILE NOT ThreadData.Terminated DO BEGIN END; Сейчас уже не помню почему но перешёл на BeginThread.

Да столько объясняли и напрасно, видно плохие из нас советчики.

Выложите, посмотрим.

Нет, Synchronize очень затратная операция, Sleep это даже понять не могу зачем, какой тут выигрыш в скорости?

А зачем поток, если в нем только четыре Synchronize не считая Sleep

Да чтоб понять как вы задумали надо обращаться к Кашпировскому. Запускайте цикл while not Cancelled do begin Inc(I); end; в потоке думаю это решит вашу проблему.

Если в 5 кучках по два яблока, то узнать общее количество можно сложением, а можно умножением ответ в том и в другом случае будет правильным. Вы запустите свой пример в Windows и посмотрите в диспетчере задач загрузку процессора сразу все станет ясно.

Все зависит от того что вы понимаете под словом работает, а так да работает никто и не спорит.

Так использовать такую конструкцию while not Finish do Application.ProcessMessages; и для Windows плохо

Так где это в вашем примере?

А что мешает так изменить ваш пример procedure TForm1.Button1Click(Sender: TObject); begin i := 0; Finish := False; Memo1.Lines.Add('Start'); Button2.Enabled := True; Button1.Enabled := False; end; procedure TForm1.Button2Click(Sender: TObject); begin Inc(i); Memo1.Lines.Add(IntToStr(i)); if (i = 5) then begin Finish := True; Button2.Enabled := False; Ogogo(); end; end; procedure TForm1.Ogogo(); BEGIN //while not Finish do //Application.ProcessMessages; Memo1.Lines.Add('Finish'); Button1.Enabled := True; END;

Зайдите в "Потоки и распределенные вычисления" там есть аналогичные темы.