Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
30. Jul 2015
Da hast Du natürlich recht... Sorry :stupid:
Hatte die anderen Versionen gar nicht auf dem Schirm...
Ich habe mich gerade gefragt warum ich das immer so mache...:drunken:
Weil ich über die ID's an anderen Stellen teste ob der Subscriber gesetzt ist.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
29. Jul 2015
Abgesehen davon, das die Events in umgekehrter Reihenfolge raus kommen, Du immer noch nicht die ID's speicherst die Du für den Unsubscripe brachst... Schon OK...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
29. Jul 2015
Das würde ich auf jeden Fall anders machen...
procedure TMyThread.Execute;
begin
while not(Terminated) do
begin
try
E_Event.WaitFor(INFINITE);
if Terminated then
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
29. Jul 2015
Abgesehen davon, dass ich keinen Thread nehmen würde...
Weil die Message ruft Dich ja auf... Es gibt also keinen Grund zu "Pollen"
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
29. Jul 2015
So geht der Q-Trick
Procedure QWas(ADateTime : TDateTime);
var
LDateTime : TDateTime;
begin
LDateTime := ADateTeim;
TThread.Queue(NIL,Procedure
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mavarik,
29. Jul 2015
OK ich sehe auf Anhieb keinen Fehler, aber:
- Warum einen Thread für den Empfang?
- Dein Thread Läuft wie ein wild gewordener Affe immer im Kreis und Locked und Leaved die CS
Mavarik
Ungetestet... Auf die schnelle zusammengestrichen... Sollte so reichen...