Array in anderes Array integrieren

[Apollonius]

Ja, da ist mir ein Fehler unterlaufen. Du könntest entweder AktiveWuerfe und InaktiveWuerfe als array of Integer deklarieren - wenn das Timer-Intervall kurz genug ist, sollte es nicht zu Überläufen kommen - oder eine andere Funktion verwenden:

Delphi-Quellcode:

//Ersetzt Target durch Value und gibt den alten Wert von Target zurück
function InterlockedExchange64(var Target: Int64; const Value: Int64): Int64;
asm
  push ebx
  push esi
  mov esi, eax
  mov ebx, [ebp + 8] //ich hasse es, wenn Delphi einen Stackframe generiert, ohne mich zu fragen
  mov ecx, [ebp + 12]
  mov eax, [esi]
  mov edx, [esi + 4]
  @@Loop:
  lock cmpxchg8b [esi]
  jnz @@Loop
  pop esi
  pop ebx
end;