Подскажите плз как остановить процесс передачи

← →
JTAG (2005-12-07 11:33) [0]

Ситуация такая есть программа которая передает данные в com порт в цикле. Происходит это так жму на кнопку и данные идут постоянно. Теперь хочу сделать чтобы при нажатии на туже кнопку передача останавливалась
Вот процедура обработки нажвтия на кнопку
procedure TForm1.Button12Click(Sender: TObject);
begin

if Button12.Caption= "Terminate" then
begin
Button12.Caption:= "Program";
чего сюда написать чтобы программа прекращала посылать данные
end;
Button12.Caption:= "Terminate";

while(1) do
посылаем данные

end

← →
Плохиш © (2005-12-07 11:34) [1]

> чего сюда написать чтобы программа прекращала посылать
> данные

Телепатор на профилактике, в последнне время слишком часто использовать приходиться, не справляется.

← →
Плохиш © (2005-12-07 11:36) [2]

Хотя попробуем без телепатора
if Button12.Caption= "Terminate" then begin Button12.Caption:= "Program"; PeredatchaStojRazDwa := true; end;

← →
JTAG (2005-12-07 11:41) [3]

:)) прикольно

> JTAG (07.12.05 11:41) [3]
> :)) прикольно

Ты смейся, смейся. Проект-то у тебя стоит.

Подскажите плз как остановить процесс передачи Найти похожие ветки