MyThread

[Levhik]

Кто знает, в чем ошибка?
Ситуация такая: пытаюсь разобраться в потоках. Создаль новый модуль для потока ну в общем все как описано в книге "Библия для программистов Delphi". через нажатие кнопки запускается поток и генерирует в Edite число.
Программа компилируется, ошибок в коде нет. А Edite почему-то пустой.
Вот что делает поток:

procedure Thread_2.Execute;
begin
index2:=0;
while index2<0 do
begin
SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0, Pchar(IntToStr(Index2))));
Inc(index2);
if index2=100000 then index2:=0;
if Terminated then Exit;
end;
end;

[bohdan4ik]

В данном случае цикл не выполнится никогда, так как выражение ложно.

[Levhik]

Это называется поспешил - людей насмешил.
А вот еще малеха подумал, изменил
index2:=0;
на
index2:=1;
Да условие в while ... do заменил на index2>0.
Запустил, а оно работает!

[mihali4]

Ситуация такая: пытаюсь разобраться в потоках.

Специально для этого Борланд приложил демку:
Delphi\Demos\Threads

[Levhik]

Блин да тут куча всяких демок. Ладно, потом буду разбираться! Спасибо всем за помощь