Ich würde das so machen:
Alles, was irgendwie regelmäßig bearbeitet wird, wird als eine Klasse definiert, die von einer Basisklasse abgeleitet ist:
Delphi-Quellcode:
type
TBasis = class
procedure Simulate; dynamic;
end;
TFirma = class(TBasis)
procedure Simulate; override;
end;
Natürlich brauchen Deine Klassen noch Konstruktoren, Destruktoren und weißderGeierwas dazu. Aber Du kannst nun alles, was abgearbeitet werden muss, in einer TList speichern und mit einem einzigen TimerEvent abarbeiten:
for i:=0 to Liste.Count-1 do TBasis(Liste[i]).Simulate;
Bei einer TFirma würdest Du in Simulate halt etwas produzieren (und in einer Klassenvariablen AnzGueter abspeichern), aber nur, wenn vorher in einem verbundenen TStahlwerk genügend Rohmaterial hergestellt wurde usw usf.
Ist die Idee dahinter halbwegs klargeworden?
Zur Verfeinerung könnte man der Simulate-Routine noch einen Parameter mitgeben: die Anzahl Millisekunden, die seit dem letzten Aufruf vergangen sind. Dann würde halt die Produktionsmenge in Abhängigkeit von den Millisekunden berechnet werden.
Zitat
Baum-Darstellung
