Цикл в Delphi., Проблема с циклом в Delphi! Опции

[..::KraN::..]

Имеется цикл в программе, при его запуске форма сразу же начинает тормозить, а через 10 сек. вообще зависает, помогает только Ctrl+Alt+Del. Хотел пихнуть в поток, но не знаю как ((((( Помогите, пожалуйста!!!

[Amp]

Код покажи.

[..::KraN::..]

CODE

If chNoComments.Checked then
begin
s2:=Form1.Synedit1.text;
Application.ProcessMessages;
while pos('', s2);
endln:=endln+3;
delete(s2, start, endln-start);
end;
Form1.SynEdit1.Text:=s2;
end;

[Gobbs]

Имеется цикл в программе, при его запуске форма сразу же начинает тормозить, а через 10 сек. вообще зависает, помогает только Ctrl+Alt+Del. Хотел пихнуть в поток, но не знаю как ((((( Помогите, пожалуйста!!!

В тему баян:"Учёные Японии придумали майнфрейм, который может вычислить бесконечный цикл за полторы секунды".

CODE

If chNoComments.Checked then
while pos('', s2);

весь цикл замыкается здесь. s2 в нём не изменяется=> зависание. Видимо, автор хотел получить что-то подобное:

Код

while pos('', s2)
         begin
            endln:=endln+3;
            delete(s2, start, endln-start);
         end;

[..::KraN::..]

Блин, чё такое? Почему код неправильно скопировался???

Вот настоящий код:

CODE

If chNoComments.Checked then

begin

s2:=Form1.Synedit1.text;

Application.ProcessMessages;

while pos('', s2);

endln:=endln+3;

delete(s2, start, endln-start);

end;

Form1.SynEdit1.Text:=s2;

end;

[..::KraN::..]

Непонял...

Короче, вместо строчки

while pos('<!--', s2) begin

должно быть

  while pos('<!--', s2)<>0 do begin

Вот...

[AndrewDragon]

сделай скриншот кода :-)

[..::KraN::..]

Воть:

  If chNoComments.Checked then
    begin
     s2:=Form1.Synedit1.text;
     Application.ProcessMessages;
        while pos('<!--', s2)<>0 do begin
        start:=Pos('<!--', s2);
        endln:=Pos('-->', s2);
        endln:=endln+3;
        delete(s2, start, endln-start);
        end;
  Form1.SynEdit1.Text:=s2;
  end;

[LLeSS]

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

[..::KraN::..]

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

Из кода должно быть понятно.


Короче, программа должна удалять из HTML файла, загруженного в Synedit, комментарии, всего-то! Удалять она удаляет, но при большом файле программа виснет, виснет как раз на этом цикле - проверял трассировкой!

[andvi]

Application.processmessages на самом деле не продолжает работу программы
, лишь сигнализирует системе, что программа занята
Интересует вынос в потоки, пиши в пм, здесь мало места, чтобы всё расписать