Геморрой с потоками

[FleXik]

delete......

[Кольша]

Эм..я думаю тебе стоит взглянуть на вложение.

[Xo66um]

Кольша правильно сказал, т.к. если код будет выглядеть так

...
if not terminated then
...

то код проверит один раз, что поток не завершен, и будет работать сколько угодно.
А так:

while not terminated do

Создается цикл, по которому код проверяет, не завершен ли поток, и если не завершен - выполняет код между begin и end, иначе - игнорирует этот блок.

Если я правильно понял ваш спор

[FleXik]

Кольша, омг, только ты не понял смысла вообще! не ну что ты за человек, у тебя при while все время добавляется в Memo фраза "Looool", она будет добавлятся хоть 1 000 000 раз пока ты САМ софт не остановишь, если я сейчас сделаю у себя вместо if - while, то у меня будет генерировать 1 000 000 раз одни и те же числа пока я САМ не остановлю софт, внимательно почитай код Unit'а который я дал выше. И вообще тему не про это!

[FleXik]

хорошо, ща, погодите, залью видео чтобы всем стало понятно что случается если делать через while, ибо доказывать на словах можно сутками. и вопрос был вообще не про это, а про то почему не работает вообще кнопка СТОП в одном потоке но в другом потоке при ИДЕНТИЧНОМ коде работает!

[Кольша]

Окей, тогда для начала просто проверь так:

begin
if not Terminated then
begin
Showmessage('Ya potok? ya srabotal');
end;
end;
И все.
Если не выдаст окошко дело в чем то другом.

[FleXik]

Смотри обьясняю еще раз, есть 2 потока (2 разных юнита, 2 кнопки старт)

первый поток выполняет одно действие // кода одного из потоков дал выше
второй поток выполняет совсем другое действие

в том юните что выше все работает отлично, кнопка СТОП работает, в другом юните абсолютно такой же код потока, такое же использование только почему-то кнопка СТОП там не пашет! еще ждите видео по поводу while

[Кольша]

Меня не покидает ощущения, что ты скопипастил код кнопки стоп, и она всегда останавливает один поток..

[FleXik]

Кольша, качай и смотри видео про while

на видео видно что используя while , одни и те же числа выдает 1 000 000 раз, только если сам не нажму кнопку СТОП, а если делать через if то числа выдаст только 1 раз и сообщит что работа завершена!

[FleXik]

Сообщение от Кольша

Меня не покидает ощущения, что ты скопипастил код кнопки стоп, и она всегда останавливает один поток..

я не калека и для первой кнопки старт указано thread1 а для второй кнопки старт указано thread2 (я это 1000 раз уже проверял), я не первый софт пишу, просто иногда возникают мелкие проблемы и спрашиваю тут, так что не надо меня за нуба который первый раз Delphi включил считать.