Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
25. Aug 2008
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)
Type {ArrayTyp} = packed Array of {Typ};
Procedure RemoveThread(Var A: {ArrayTyp}; Index: Integer);
Begin
If (Index < 0) or (Index >= Length(A)) Then Exit;
//A.Free;
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
21. Aug 2008
Type TThreads = packed Array of TThread;
Procedure RemoveThread(Var A: TThreads; Index: Integer);
Begin
If (Index < 0) or (Index >= Length(A)) Then Exit;
//A.Free;
MoveMemory(@A, @A,
(High(A) - Index) * SizeOf(TThread));
SetLength(A, High(A));
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
20. Aug 2008
du mußt doch einfach nur, wenn ein Thread sich beendet, dessen eintrag aus dem Array/Liste entfernen.