Циклы и выход из них.

[alikk]

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

можно так
var a:boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=false;
repeat
application.ProcessMessages;
until a;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=true;
end;

Попробую ваш пример тоже. Пасибааааааааааааааааааа......

[Stilet]

Ring0Sn: Сам то понял что написал?

Вообще то так не делают, но можно :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var b:boolean;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
b:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
while b do begin
caption:=TimeToStr(time);
Application.ProcessMessages;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
end;

end.

[alikk]

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

Ring0Sn: Сам то понял что написал?

Вообще то так не делают, но можно :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var b:boolean;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
b:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
while b do begin
caption:=TimeToStr(time);
Application.ProcessMessages;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
end;

end.

Перепробовал все 3 примочки, ни одна не пошла. Видимо, при работе цикла, при нажатии "кнопки" выхода из цикла, булева переменная не меняет своего значения, т.е. "кнопки" на форме не активны в момент работы цикла, запущенного другой "кнопкой". Чё делать? Видимо, остаются только потоки.....

[Showy]

у меня работает вот так

var
b:boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
b:=false;
for i:=0 to 100000 do begin
if b then break;
label1.caption:=inttostr(i);
Application.ProcessMessages;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=true;
end;

[Stilet]

Alikk, все зависит от цикла и что у тебя там происходит, вообще конечно такие вещи потоками рулят. Но если цикл маленький и не тягомутный то мона и таким путем.

[alikk]

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

Alikk, все зависит от цикла и что у тебя там происходит, вообще конечно такие вещи потоками рулят. Но если цикл маленький и не тягомутный то мона и таким путем.

Спасибо. Нажав " Пуск" вызывается процедура1, проиходят начальные настройки, инициализация кое каких переменных, затем вызывается процедура2, в не запускается бесконечный цикл. В цикле происходит считывание данных и вывод их в "мемо". При нажатии на "Стоп" должен происходить выход из этого цикла и возврат в форму.

[Ring0Sn]

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

Ring0Sn: Сам то понял что написал?

Вообще то так не делают, но можно :


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var b:boolean;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
b:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
while b do begin
caption:=TimeToStr(time);
Application.ProcessMessages;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=true;
end;

end.

Слушай давай негоняй, я заню что я писал и пасил я правильно, ну если ты неможеш в 2 строчках кода разобраться то извивни на полный листинг:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  check: boolean = false;
  i: dword = 0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  while true do
  begin
    inc(i);
    Caption:= inttostr(i);
    if check then break;
    Application.ProcessMessages;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  check:= true;
end;

alikk Перепробовал все 3 примочки, ни одна не пошла.
А что именно пробуешь, вот точто выше оно работатает например )

[Ring0Sn]

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

Ring0Sn:
Вообще то так не делают, но можно :
[/I]

Как же тогда делают просвети нас незнающих ?
В отдельные потоки суют все подряд?

[alikk]

МУЖИКИИИ, ВСЕМ БОЛЬШУЩЕЕЕЕЕЕЕ СПАСИБО. ЗАРАБОТАЛА ШТУКА !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!

[Ring0Sn]

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

МУЖИКИИИ, ВСЕМ БОЛЬШУЩЕЕЕЕЕЕЕ СПАСИБО. ЗАРАБОТАЛА ШТУКА !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!

Да невопрос...