hilfe!repeat-schleife mit abbruchfunktion

[whiteshark]

@PierreB: deine Variante geht, aber man kann nicht abbrechen. Es fehlt eine Applikation.Processmessage;

Delphi-Quellcode:

var
test : Boolean;

//Jetzt die Schleife bei klick auf Button1
procedure form1.Button2click(Sender : TObject);
begin
repeat
//Dein Net Send Zeug
application.processmessage;
until test = true;
end;

//Jetzt bei Klick auf Button2 wirds abgebrochen
procedure form1.Button2click(Sender : TObject);
begin
test := true;
end;

Ich habe es bei mir probier, es sollte so gehen.

[Chegga]

Hi,

was hat das Ganze mit einer Endlosschleife zu tun? :gruebel:

Zitat:

...ich will ein kleines Program schreiben, dass eine Endlosschleife produziert die jedoch...

Eine Endlosschleife ist imho sowas:

Delphi-Quellcode:

var
  i: Integer;
.
.
.

i := 0;
repeat
  dec(i);
until
  i >= 0;

MfG Marc

[LoRd-MuldeR]

Ja, aber mit der Endlosschleife und dem ProcessMessages hast du ja ne CPU Auslastung von 100%

Ich würd das so machen:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Dein Net Send Zeug
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 100;
  Timer1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

[PierreB]

Zitat:

was hat das Ganze mit einer Endlosschleife zu tun?

Nicht viel. Er meinte eine Schleife die etwas immer wiederholt bis man es durch einen Button-Klick abbricht. Vielleicht nicht gute Wortwahl, jedoch kann man aus dem Post erkennen was er machen will. ;)

[Nikolas]

Delphi-Quellcode:

var
  i: Integer;
.
.
.

i := 0;
repeat
  dec(i);
until
  i >= 0;

Das ist aber auch keine Endlosschleife. Irgendwann bis du bei low(Integer) angekommen.

[skreap]

ok...ich werd mal testen und morgen vllt mal meine Kollegen fragen soweit scheint es zu gehen nur Messages kommen nicht an ... trotzdem vielen Dank für eure Hilfe

Tschau
skreap

[raffo]

Ich behelfe mir immer so

Delphi-Quellcode:

Button1.Tag:=0; // Annahme nicht gestoppt

While Button1.Tag=0 do
      begin
// Routine
      Application.ProcessMessages;
      end;

Button1.Tag:=0; // oder zur späteren Auswertung auf Wert lassen

[tigerman33]

Das ist eine Endlosschleife:

Delphi-Quellcode:

while 0<>1 do
  ...

[TeronG]

@skreap: Ändere doch bitte mal deinen Titel .. sonnst wird hier noch seitenweise diskutiert was alles ne Endlosschleife ist oder nicht. :mrgreen:

Zum Problem: Wenn du ne schleife aber keine 100% haben willst kannste ja ein "wait" einbauen (pause ohne sleep siehe DP) ansonnsten würd ich eher nen Timer empfehlen.