schleife will einfach nicht.

[Fussball-Robby]

ohne i ist es aber viel einfacher, du machst

Delphi-Quellcode:

procedure SchleifenThread.Execute;
begin
while not terminated do
  begin
     Synchronize(UpdatePing);
     sleep(2000);
     Synchronize(UpdatePong);
     sleep(2000);
  end;
end;

Und rufst dann beim Button  SchleifenThread.Terminate; auf

[alleinherrscher]

Das Problem ist eben, dass du so nicht den Überblick behälst. Die Funktion Terminate ist ja genau dazu da, den Thread abzubrechen Also warum wirres Zeug programmieren, wenns schon vordefinierten Code dafür gibt Abgesehen davon würd ich dann eher ne Boolsche Variable nehme anstatt nem Interger i...aber vergiss das am besten wieder

Schönen abend noch!

@Fussball-Robby: steht doch oben schon

[Fussball-Robby]

Zitat von alleinherrscher:

@Fussball-Robby: steht doch oben schon

Ich weiß, wollte ihn nur nochmal darauf hinweisen und hab dann ausversehen das quote weggemacht

[opfer15]

Wie gesagt TApplication kennt er nicht Ich weiss ja selber das es verwirrend ist.

Oder mach ich da nur was falsch Luckys Thread PDF hat mir für heute das Hirn ausgeknipst

[Fussball-Robby]

Zitat von opfer15:

Oder mach ich da nur was falsch

Kann ich dir leider nicht sagen, da ich nicht weiß, was du machst in bischen code wär nicht schlecht

[alleinherrscher]

Zitat von opfer15:

Wie gesagt TApplication kennt er nicht Ich weiss ja selber das es verwirrend ist.

Oder mach ich da nur was falsch Luckys Thread PDF hat mir für heute das Hirn ausgeknipst

Du nennst deinen Schleifenthread in Form1 ja auch so:

Thread := SchleifenThread.Create(False); D.h. du musst beim Button einfach schreiben:

Thread.terminate;
Fertig

[opfer15]

Jop das wars.

So hier nochmal nen Code update

[bluesbear]

Das mit Threads lösen zu wollen ist IMHO ein unnötiger overkill. Ein einfacher Timer tut das viel besser. Finde ich. Also so würde ich das machen. Nur sone idee...

[opfer15]

Na dann zeig mal her

Wenn ich nen Timer benutzt hab, hat sich das Prog warum auch immer verabschiedet, oder er hat die Befehle nicht abgearbeitet. Naja aber hauptsache es läuft

[Fussball-Robby]

Zitat von bluesbear:

Das mit Threads lösen zu wollen ist IMHO ein unnötiger overkill. Ein einfacher Timer tut das viel besser. Finde ich. Also so würde ich das machen. Nur sone idee...

Hab ich doch am Anfang schon gesagt

müsste dann ungefähr so aussehen:

Delphi-Quellcode:

Var i:integer=0;

[..]

implementation

Procedure Timer1Timer(Sender:TObject);
begin
if i=0 then 
  begin
    Label1.Caption:='Ping';
    inc(i);
  end else
  begin
    Label1.Caption:='Pong';
    Dec(i);
  end;
end;

nur runtergetippt & ungetestet