Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Stop/Play для цикла

Автор: imonah 30.8.2005, 23:24

Выполняется цикл. В течение выполнения цикла необходимо его остановить нажатием кнопки, выполнить некоторые действия в окне и запустить цикл с того же места. Короче организовать что-то Play/Pause для цикла, сохраняя работоспособность компонент на форме. Вопрос: как?

Автор: FRAGNATIC 30.8.2005, 23:46

Код


unit Unit1;

interface

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

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

var
  Form1: TForm1;
  b: boolean;
  k,j : integer;
implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  b:=true;
  for k:=j to 1000000000 do
  begin
    application.ProcessMessages;
    if not b then begin
      j:=k;
      exit;
    end;
    //do something
  end;
end;

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

end.

вроде пашет)) сильно не кричите я тут отмечаю конец лета)

Автор: imonah 30.8.2005, 23:56

FRAGNATIC
Не... таким макаром мы просто выпадем из цикла. А мне его надо будет перезапустить с того же места...
Что-то краем уха про потоки слышал. Как запустить цикл отдельным потоком? И как его потом останавливат/запускать?

Автор: FRAGNATIC 30.8.2005, 23:59

Цитата

с того же места...

эм если тя цикл от 0 до 100 интересует то кокрас мы и начнём с тогоже места где и выпали если дапустим выпали на 20 то и начнём с 20!
если тя интересует что-то типа по строчно выполнение
типа на какой строке остоновился
типа
for i to g do
begin
1
2
3
4
5
...
end;
и можно было остоновить на 3 строке и потом с неё продолжить то тут я хз! так бы сразу и сказал! и к циклам это мало относится тк так мона и любую процедуру на какой-то строке пробовать остоновить и потом вовзобновить!

Автор: p0s0l 31.8.2005, 00:01

Цитата(imonah @ 30.8.2005, 23:56)

Что-то краем уха про потоки слышал. Как запустить цикл отдельным потоком? И как его потом останавливат/запускать?

Читаем внимательно...
http://forum.vingrad.ru/index.php?showtopic=60076&view=all

Автор: FRAGNATIC 31.8.2005, 00:02

брррр
а поток мона на паузу реально поставить (вроде)
как не помню)
в разделе вин апи большая статья по потоки! смотри там!

Автор: Poseidon 31.8.2005, 00:19

Цитата(FRAGNATIC @ 31.8.2005, 00:02)

а поток мона на паузу реально поставить (вроде)
как не помню)

Suspend

Запустить Resume

Подробнее читаем в статье Петровича по ссылке Посла smile

Автор: imonah 31.8.2005, 00:36

Всем спасибо за подсказки и ссылки smile

Ушел читать...