Endlosschleife mit Timer

[Binärbaum]

Naja, die while-Schleife war von mir so ausgelegt, dass sie nur 30 Zahlen sendet und dann beendet. Wenn es nach 30 wieder von vorne anfangen soll, dann muss man die while-Schleife in der Prozedur Senden ändern:

Delphi-Quellcode:

while (Schleife) do
  begin
    i:= i+1;
    PortOut($378,i);
    Warten(delay);
    Form1.ProgressBar1.Position := i;
    if i>=30 then i:=0;
  end;

das drumherum kann so bleiben wie es ist.

MfG
Binärbaum

[Edit]
Mein 222. Beitrag. Da muss man ja einen ausgeben. :cheers:
[/Edit]

[Crazy-MF]

ihr (>du) seit/bist meine helden

ich danke