выход из цикла

[varelik]

Здравствуйте.
Подскажите, как реализовать выход из цикла?
Прога принимает байты по ethernet и отображает в стринггрид. Использую tcpclient1.recivebuf();
и tcpclient.waitfordata которое равно 10мс.
Делаю так:

var
b:boolean;

procedure .........(Sender: TObject);
var
........
begin
b:=false;
............
if b then break;
............
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=true;
end;

но это все работает когда tcpclient.waitfordata=100мс, и то Button2
срабатывает через раз.
а когда tcpclient.waitfordata=10мс (что мне и нужно), Button2 сработает если постоянно по ней долбить и то не факт.
как быть?

[TzX]

Ты что долбишь по кнопке, принимая данные? А сделать циклом не вариант?

[varelik]

да нет же!)
Данных приходит и отображается очинь много и иногда (ну мне так нужно)
я хочу остановить процесс отображения и выйти из цикла с помощью нажатия Button2

[TzX]

А.... А конструкция

Repeat
   тут получаешь данные(или отображаешь что там...)
Until stop=true;

Для твоих целей не подойдет?

[varelik]

да пробовал- та же хрень

[TzX]

А с предусловием пробывал? Может не так строишь логику цикла... дай кусочек кода если можешь по конкретнее

[Пепел Феникса]

Application.ProcessMessage
и глобальная булева переменная.

[varelik]

TzX,код по памяти:

.....
nn:=0;
repeat
......
pdata[0]:=..; //pdata- массив для передачи байт
...
pdata[17]:=..;
....
tcpclient.sendbuf(pdata,17);//передаем байты внеш-му устройству
if b=true then breack;
while tcpclient.waitfordata(10) do begin
tcpclient.recivebuf(a,164);//прием ответа
end;
........
if nn<>1 then begin
stringgrid1.cells[0,stringgrid1.rowcount-1]:= сюды отображаем
....
stringgrid1.cells[50,stringgrid1.rowcount-1]:=...
.....
end;
until nn=1;
....

Пепел Феникса, переменная b как раз глобальная,
а вот Application.ProcessMessage где написать? (я его гдето в процедуре использовал, но так.. бездумно)

[TzX]

while tcpclient.waitfordata(10) do 
begin
tcpclient.recivebuf(a,164);//прием ответа
if b=true then break;
Application.ProcessMessage;
end;

попробуй так

[varelik]

пробовал- ноу эффекто((
мож как по другому цикл прервать? без глобальной булевой.. даже не знаю..
могу конечно в onclose формы ХАЛЬТ поставить- но согласись- бред