Erkennen ob Thread initialisirt ist?

[himitsu]

wie ist den dein cs definiert?
(TThreads ist mehr nur als Beispiel gedacht und ebenso das .Free ist auf TThread ausgelegt und müßte eventuell angepaßt werden)

Code:

Type [color=#ff0000]{ArrayTyp}[/color] = packed Array of [color=#0000ff]{Typ}[/color];


Procedure RemoveThread(Var A: [color=#ff0000]{ArrayTyp}[/color]; Index: Integer);
  Begin
    If (Index < 0) or (Index >= Length(A)) Then Exit;
    [color=#df0000]//A[Index].Free;[/color]
    MoveMemory(@A[Index], @A[Index + 1],
      (High(A) - Index) * SizeOf([color=#0000ff]{Typ}[/color]));
    SetLength(A, High(A));
  End;