Краш программы при старте потока

[CodeGrand]

Здравствуйте! Возник такой вопрос!
В общем, при старте потока в моей программе происходит краш программы!
Скриншот : http://prntscr.com/7sgbj3
Пытаюсь решить проблему уже не первый день, прошу вашей помощи...

Код программы (Не полный!)

На кнопке старт потока :

var
i : Integer;
begin
Work := true;
for I := 0 to sSpinEdit1.Value-1 do THread.Create(false);

Execute потока :

begin
   while (Work=true) do begin
        if (Work=true) then begin
        sMemo1.Lines.Add('1');
        end else begin
        EndThread(0);
        end;
   end;
end;

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

Ну и если нужно, то сам поток :

type
  Thread = class(TThread)
  private
    Переменные ///
  protected
    procedure Execute; override;
    procedure SyncRezult;
  end;

[Stilet]

THread.Create(false);

А освобождение где? Или надеешься на менеджер памяти? ))

sMemo1.Lines.Add('1');

Такие вещи нужно бы по хорошему синхронизировать.

EndThread(0);

Зачем? Достаточно написать break;

[CodeGrand]

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

А освобождение где? Или надеешься на менеджер памяти? ))

Освобождение делаю через диструктор потока ( FreeAndNil(Thread) )

Это просто для теста потока, в программе если удастся сделать её будет через синхронизацию

А насчет break мне удобнее endthread

[IliaIT]

попробуй добавить sleep(100) в цикл while. а ещё лучше для отладки попробуй добавить sleep(3000); у тебя же куча потоков постоянно пишет в форму. соответственно всё должно виснуть.

а ещё куда вы создаёте поток? for I := 0 to sSpinEdit1.Value-1 do THread.Create(false);
какой переменной вы это присваиваете?

[CodeGrand]

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

попробуй добавить sleep(100) в цикл while. а ещё лучше для отладки попробуй добавить sleep(3000); у тебя же куча потоков постоянно пишет в форму. соответственно всё должно виснуть.

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

[TaLadno]

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

Здравствуйте! Возник такой вопрос!
В общем, при старте потока в моей программе происходит краш программы!
Скриншот : http://prntscr.com/7sgbj3
Пытаюсь решить проблему уже не первый день, прошу вашей помощи...

Брутфорсить не хорошо

Приложите архив с тестовым приложением, как-то совсем не охота фигней страдать делая его вместо вас

[CodeGrand]

а ещё куда вы создаёте поток? for I := 0 to sSpinEdit1.Value-1 do THread.Create(false);
какой переменной вы это присваиваете?

У меня просто создается поток..
Вы имеете ввиду допустим

Potok : array of Thread; ?

Я не использую так. Посоветуете использовать?

Брутфорсить не хорошо

Приложение у меня не брутфорс
Выполняет совсем другую функцию)

Приложите архив с тестовым приложением, как-то совсем не охота фигней страдать делая его вместо вас

Какое приложение вам предоставить?

[IliaIT]

Potok : array [0..100] of Thread;
попробуйте так, потом поймёте где как создавать лучше.

Potok[i]:=THread.Create(false);
Potok[i].Resume;

[TaLadno]

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

Приложение у меня не брутфорс
Выполняет совсем другую функцию)

Ага

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

Какое приложение вам предоставить?

А вот то, где вы отлаживаете работу потоков:

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

...Это просто для теста потока...

[CodeGrand]

Potok : array [0..100] of Thread;
попробуйте так, потом поймёте где как создавать лучше.

Potok[i]:=THread.Create(false);

Спасибо! Сделал запуск потока в массиве, добавил слип, и программа перестала крашить. Спасибо большое. Топик можно закрывать!

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

Ага




А вот то, где вы отлаживаете работу потоков:

То что на титле программы написано, это название самого проекта.
Я хотел делать, сейчас я делаю спаммер, но не стал делать новый проект т.к. лень было опять красива расставлять компоненты. =)