Kontinuierlich Schleife

[mashutu]

Zitat:

Zitat von RavenIV

Das kann schon Sinn machen.
z.B. in einem Thread, der auf Signale an einer seriellen Schnittstelle wartet.
- warten auf Signal <--------
- Signal verarbeiten ¦
- dem Hauptthread mitteilen -
Das ist eine kontinuierliche Schleife.

Oder was meinst Du, was die Nachrichtenverarbeitung von Windows ist?

Schon klar, was die Nachrichtenverarbeitung von Windows ist.
Aber ich habe auch schon Kommunikation mit seriellen Geraeten ohne Endlosscheifen programmiert ...
Daher isses IMHO erforderlich zu wissen, auf was der OP rauswill.

[raena]

Hallo zusammen,

vielen Dank für die schnellen Antworten.
Der Code funktiniert soweit ich das beurteilen kann,
ich habe als Anfaenger nur probleme die Sache mit den Threats
zu verstehen.
Gibt es für den Anfang nicht eine einfachere Lösung?
Das Ziel wäre zB in einem Form mit Buttons und Memos etc.
eine eine ablaufende Zeit in Sekunden anzuzeigen, die
"permanent" geupdated wird, ohne dass ein Ereignis eintritt?
Parallel sollte das Programm aber auf Ereignisse reagieren.
Vielleicht sollte ich mit einer einfachen Loesung
anfangen und später die Sache mit den Threats angehen.

:oops:

Merci, Raena.

[Oxmyx]

Das ist mal wieder der klassische Fall, wo einem Anfänger eine völlig unpassende Lösung angeboten wird für ein Problem, das er überhaupt nicht hat. Wenn's darum geht einen Countdown auf ein Formular zu setzen, dann würde ich einem Anfänger ein Timer empfehlen. Einfach aufs Formular ziehen, doppelt draufklicken, Countdown reinschreiben, fertig.

[sirius]

Zitat:

Zitat von Oxmyx

Das ist mal wieder der klassische Fall, wo einem Anfänger eine völlig unpassende Lösung angeboten wird für ein Problem, das er überhaupt nicht hat. Wenn's darum geht einen Countdown auf ein Formular zu setzen, dann würde ich einem Anfänger ein Timer empfehlen. Einfach aufs Formular ziehen, doppelt draufklicken, Countdown reinschreiben, fertig.

Aus dem hier war allerdingas nicht zu erkennen, dass ein einfacher Timer reichte:

Zitat:

Wie kann man mehrere Schleifen permanent parallel mit unterschiedlicher Schnelligkeit
laufen lassen?

Aber nach der verbesserten Aufagenstellung ist ein Timer völlig ausreichend.

[raena]

Ja das sehe ich auch so. Die Sache mit den Threats ist bestimmt gut.
Nun aber da ich die Aufgabe klarer formuliert habe wird bestimmt einfacher.

So, mit einem Timer habe ich folgendes Problem:
das Label wird zwar schoen geupdated, der Button ist aber nicht mehr ansprechbar.

Wie kann man erreichen, dass der Button noch reagiert, die Zeit aber trotzdem läuft?

Danke.

Delphi-Quellcode:

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage('test');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=0;
repeat
label1.Caption:=inttostr(i)+'               ';
label1.Refresh;
inc(i);
sleep(1000);
until (i>100);

end;

end.

[Klaus01]

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
//var i:integer;
begin
//i:=0;
//repeat
label1.Caption:=inttostr(i)+'               ';
label1.Refresh;
//inc(i);
//sleep(1000);
//until (i>100);

Lass das sleep und die Schleife mal aus dem Code raus und stelle das Interval so ein wie Du es brauchst.
Grüße
Klaus

[sirius]

Was du brauchst ist eben keine Schleife sondern eine Funktion, die in regelmäßigen Zeitintervallen aufgerufen wird. Das macht alles Windows (und ich bisschen Delphi) für dich. du musst in die Methode nur reinschreiben, was nach dem Interval (siehe im Objectinspector) eben regelmäßig gemacht werden soll