Loop med pause

hmm

Hvordan laver jeg et loop hvor den holder en pause før den fortsætter???

Søren

Der var den...

Sleep();

sådan her:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to 10 do
  begin
    sleep(1000);
    //Min kode
  end;
  ShowMessage(\'Det var loop med 10 sek forsinkels, 1 sek pr omløb\');
end;

Hvad så hvis jeg vil have et loop som bliver ved til jeg trykker en knap som hedder stop

du laver en global variabel:

stop: boolean = false;

så laver du en procedure til tryk på knappen:

stop:=true;

løkken skal så indeholde:

while not stop do
begin
  // ting der skal gøres....
end;

Kan du ikke lave et eksempel??

men det er nok bedre at bruge en timer-løsning... den ovenstående vil suge alle systemresourcer...

jeg laver lige et... :)

prøv dette:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  stop: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
stop:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not stop then
begin
  // gør ting....
end;
end;

end.

Har fået det til at virke... men når lykken køre kan jeg ikke afbryde den..

brug timer-løsningen istedet for... den jeg lavede først er ikke helt til at stoppe normalt... ;)

Virker ikke kan du ikke maile mig koden til mig i delphi på

atox@zerozone.dk

Du kan sagtens bruge en IKKE timer baseret løsning du SKAL bare havde en Application.ProccesMessages i det loop så din app. kan reagere på musen og tastetryk

/Martin

Har fundet ud af det nu... tror jeg

Du kan sagtens bruge en IKKE timer baseret løsning du SKAL bare havde en Application.ProccesMessages i det loop så din app. kan reagere på musen og tastetryk


Hvordan laver jeg det??

Har ikke fundet ud af det..

Hvad er application.ProccesMessages

Hvad gør en application.ProccesMessages

Hvordan får jeg afbrudt loopen når den køre.. det er som om at den låser systemet..

application.ProccesMessages  søger for at du kan trykke på din knap

while not stop do
begin
  application.ProccesMessages; 
end;

Kan ikke få det til at virke... er der ingen andre forslag??

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  stop: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
stop:=true;
doStuff;
end;

procedure TForm1.DoStuff;
begin
while not stop do
begin
  application.ProccesMessages; 

  // gør ting....
end;


end.

Ok... det virker nu...

ATox