Hi,

ich möchte gern eine schleife per Tastatureingabe unterbrechen.

zusammenfalten · markieren

Delphi-Quellcode:

 
 a:Boolean;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var b,c:Integer;
begin
   For b:=0 to 20000 do
   //sleep(50);
   If a=true then
     break
   else
   c:=b;
   label1.Caption:=inttostr(c);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key=VK_RETURN then
    a:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=false;
end;

Habe es auch mit (Button1)KeyPress probiert.
Mfg Thomas

Application.ProcessMessages;

Oder einen Thread verwenden.

So müsste es eigentlich funktionieren:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var b,c:Integer;
begin
   For b:=0 to 20000 do
   //sleep(50);
   if getasynckeystate(VK_RETURN)<>0 then
     break
   else
   c:=b;
   label1.Caption:=inttostr(c);
end;

Hallo und Danke erstmal an alle!

@freak4fun
Habe im obigen (Post1) Code probiert es in der (1)Schleife bzw in der (2) If-Anw. einzufuegen, jedoch ohne Erfolg.
Alternativ habe ich noch folgendes probiert:

zusammenfalten · markieren

Delphi-Quellcode:

 Variante2
procedure TForm1.Button1Click(Sender: TObject);
Var b,c:Integer;
begin
   For b:=0 to 20000 do
   begin
     Application.ProcessMessages;
     if application.Terminated then
     begin
 // showmessage(inttostr(b));
       break;
     end
     else
     begin
       sleep(50);
        c:=b;
     end;
   end;
   label1.Caption:=inttostr(b);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   If Key=VK_RETURN then
     application.Terminate;
end;

leider auch ohne Erfolg.

@DeddyH
Habe noch nie mit Threads gearbeitet, werde es mir mal anschauen (jedoch erst in den Ferien )


@fui-tak
Danke für die Prozedur, kannte ich vorher noch nicht. Deine gepostete Version ging bei mir leider auch nicht. Ich habe als Rückgabewert einen int64 (uint64))bekommen, also keinen Wert aus dem intervall 0-20001.
Allerdings so ging es dann:

zusammenfalten · markieren

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject);
Var b,c:Integer;
begin
   For b:=0 to 20000 do
   begin
     application.processmessages;
     if getasynckeystate(VK_RETURN)<>0 then
       break
     else
     begin
       c:=b;
       sleep(50);
     end;
   end;
   label1.Caption:=inttostr(c);
end;

Mfg thomas

Noch ein Tipp:

Überpüfe einen Boolean nicht auf = True.
In deinem Fall also:

if a then

Hi Forlan und vielen Dank,

dachte das ist nur eine unnötige Abfrage mehr, habe es aber mal nach gelesen.

Allerdings hilft mir dass auch nicht wirklich bei einer lauffaehigen Variante mit den Buttondown bzw press Ereignis.
Bin das We erstmal nicht da aber poste am Mo nochmal meine Ergebnisse.

Mfg thomas

Ich denke, dass es an deinem Sleep liegt, damit hälst du dein ganzes Programm an und es kann auch keine Tastendrücke mehr abfangen. So funktioniert es bei mir hervorragend:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var b: Integer;
begin
  aus := false;
  ProgressBar1.Max := 200000;
  for b := 0 to 200000 do
   begin
    Application.ProcessMessages;
    if aus then
      break;
    //tue hier sonst die normale schleife
    ProgressBar1.Position := b;
   end;
end;