Delphi Erkennen ob Thread initialisirt ist?

Thema durchsuchen

Ansicht

Themen-Optionen

Erkennen ob Thread initialisirt ist?

Ein Thema von gandime · begonnen am 20. Aug 2008 · letzter Beitrag vom 25. Aug 2008

Vorheriger Beitrag

Nächster Beitrag

himitsu

Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.343 Beiträge

Delphi 12 Athens

#11

Re: Erkennen ob Thread initialisirt ist?

21. Aug 2008, 10:21

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;