Einzelnen Beitrag anzeigen

Royal Ranger

Registriert seit: 2. Apr 2020
12 Beiträge
 
Delphi 10.3 Rio
 
#1

Procedure bis zum Ende weiterführen

  Alt 26. Mai 2020, 09:49
Hallo,
ich brauch mal von jemandem einen Tipp wie ich ein Problem lösen kann...Ich hab ein Variable "index : Byte", die alle 2 Sekunden von einem
Zufallszahlengenerator im bereich 1-5 neu deklariert wird nun will ich dass wenn index den Wert 1 an nimmt, der eine Ablauf beginnt, bei index:=2 ein anderer und bei index :=3 wieder ein anderer und so weiter. ich habe das bisher so gelöst:

Delphi-Quellcode:
case index of

1 :
begin
 .... ;
end;

2 :
begin
 ...;
end;
3 :
begin
 ... ;
end;
4:
begin
 .... ;
end;
5 :
begin
 ....;
end;
end;
Mein Problem ist jetzt dass sobald index einen neuen Wert annimmt, der alte Ablauf unterbrochen wird und eben der neue beginnt...Wie könnte ich es hinkriegen, dass der Ablauf zuende geführt wird auch wenn index schon einen neuen Wert angenommen hat?

Vielen Dank
  Mit Zitat antworten Zitat