"Hintergrund"-Prozedur

[qb-tim]

Hi,

wie kann ich eine Prozedur als "Hintergrund"-Prozedur ablaufen lassen.

Darin enthalten sind eine Reihe von if-Schleifen, die bei einem bestimmten Status des Programms oder einer Variablen eine andere Prozedur aufrufen.

Geht das? Wenn ja, wie?

Ein Beispiel: (Krankheitssimulator)

Delphi-Quellcode:

var
  Form1 : TForm;
  AnzahlFiguren : Integer;
  x : Integer;
  Gesundheit : Double; // Gesundheit der Figur in Prozent

// FigurIstTod(x : Integer) ist eine Prozedur zum löschen einer "toten" Figur

// In der Hintergrundprozedur:
for x := 1 to AnzahlFiguren do
  if Gesundheit < 10 then
    FigurIstTod(x);