zusammenfalten · markieren

Delphi-Quellcode:

Type TThreads = packed Array of TThread;


Procedure RemoveThread(Var A: TThreads; Index: Integer);
  Begin
    If (Index < 0) or (Index >= Length(A)) Then Exit;
    //A[Index].Free;
    MoveMemory(@A[Index], @A[Index + 1],
      (High(A) - Index) * SizeOf(TThread));
    SetLength(A, High(A));
  End;

Free, falls das TThread-Objekt noch freigegeben werden muß

hmm ich glaube ich rufe die Procedure falsch auf habs jetzt so gemacht:
removethread(TThreads(cs),i); und nachdem die Procedure durchgelaufen ist length(cs)=0

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)

markieren

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;