TEvent unter iOS

[CHackbart]

Danke für die Rückmeldung. Die Konfiguration hier ist die selbe.

Wenn ich hier x-Mal auf SetEvent klicke, muss ich allerdings x-Mal auch auf ResetEvent klicken, damit das wieder stimmt.

Aufgefallen ist mir das eigentlich nur, da mein Ringpuffer, der über ein Abort-Event gestoppt und fortgesetzt wird unter iOS nicht lief. Ich hab vorsorglich eingebaut.

Code:

function Check(Event: TEvent): Boolean;inline;
begin
  result := Event.WaitFor(0) = wrSignaled;
end;

procedure TDataCache.SetAbort(abort: Boolean);
begin
{$IFDEF IOS}
  if Check(ev_abort)=abort then exit;
{$ENDIF}

  if (abort) then
    ev_abort.SetEvent()
  else
    ev_abort.ResetEvent();
end;

Christian