Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Arbeiten mit TThreadList

    Delphi
    by Bjoerk, 25. Jun 2014
  Ok. Vielen Dank für dein Beispiel. Die BeforeDestruction werd' ich einbauen.
  
  destructor TD2007Thread.Destroy;
  begin
  if (FThreadID <> 0) and not FFinished then
  begin
  Terminate;
  if FCreateSuspended then
  Resume;
  WaitFor;
• Forum: Object-Pascal / Delphi-Language

  AW: Arbeiten mit TThreadList

    Delphi
    by Bjoerk, 25. Jun 2014
  Apropos WaitFor. Darf ich mich mal kurz einklinken? Kann man das auch in den destructor schreiben oder ist es da schon zu spät?
  
  constructor TFindSnapPointsThread.Create(List: TGraphicList);
  begin
  inherited Create(true);
  FreeOnTerminate := true;
  FFindSnapPoints := TFindSnapPoints.Create;
  FList := List
  end;