Вывод строк в Memo в ходе решения задачи

[STRELOK-2007]

Сообщение от oleg_swimmer

Спасибо, разберусь, переделаю. Спасибо за поддержку.

Вроде как при многопоточном чтении переменных, не должно быть проблем. Но на всякий случай, тоже через критическую секцию проводи.
Ибо квант времени чтения переменной, может перекрестить с квантом записи. И будет неразбериха, в лучшем случае.

[doktor255]

Сообщение от oleg_swimmer

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

Чёт я совсем затупил. Решение элементарное.

Memo1.Lines.BeginUpdate;
Memo1.Lines.EndUpdate;

Между этими строками вставляй сразу блоки текста, и всё

[northener]

Если нужна визуализация длительного расчетного процесса, то от доппотока много пользы не будет. Только дополнится лишняя сущность. Достаточно только продумать что, как и когда выводить на экран.
P.S.
Но это в том случае если во время данного процесса не нужно занимать программу другими делами.
Имхо.

[Serge_Bliznykov]

Сообщение от oleg_swimmer

Здравствуйте!
При щелчке по форме выдается сообщение, что приложение не отвечает.

Кстати, если используете вывод данных в самом приложении в цикле (т.е. не используете доппотоки), то добавление внутрь цикла команды:

Application.ProcessMessages;

может заставить форму "отзываться"

[oleg_swimmer]

Для организации потока разработал схему:

procedure TForm15.Button13Click(Sender: TObject);
var
err_solution, k, n1, n2, numRegionToCompute, iter: integer;
type_of_day: SmallInt;
F: double;

begin
phmThread:=TphmThread.Create(false) ;
phmThread.FreeOnTerminate:=true;
phmThread.Priority:=tpLower;
phmThread.Resume;
end;

В Execute вставил вычислительный процесс, в том числе и подпрограмму, которая периодически обращается к phmThread.Synchronize(phmThread.phm PrintF). phmPrintF выводит результаты в Memo1:
form15.Memo1.Lines.Add(inttostr(ite r_thread)+' F='+FloatToStrF(minF_thread,ffexpon ent,14,6));
Все кажется работает неплохо, но после завершения программы выскакивает окно с ошибкой 1400, Недопустимый дескриптор окна. Не подскажете, как от этого избавится?