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