Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language
    Delphi
    by APP, 8. Apr 2003
  @oki,
  
  Vielen Dank, es funktioniert!! :dancer: :dancer2:
  
  
  
  p.s. Eine kleine Frage noch (wie gesagt ich bin kein Thread-Profi):
  Ist dieser Code auch "Thread-Save", ich meine damit, was passiert in TMain.OnThreadFinish(Sender : TObject);
  wenn mehrere Threads zugleich dieses Ereignis anstoßen (Stichwort: Synchronize)?
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by APP, 8. Apr 2003
  Danke @Motzi und @Luckie,
  
  aber ich komme mit den Threads und Eueren Tips nicht klar :cry: (bin noch Thread-Anfänger)
  
  Ich übergebe iNumberOfThreads beim 1. Aufruf in meiner Form1-Unit mit:
  
  iNumberOfThreads := 0;
  FOR i := 0 TO ListBox1.Items.Count - 1 DO //Maximal 16 THREADS zugleich!!!
  BEGIN
  ...
• Forum: Object-Pascal / Delphi-Language

  THREADS: Anzahl der gerade aktiven Threads

    Delphi
    by APP, 8. Apr 2003
  Hallo,
  ich erzeuge in Abhängigkeit der Anzahl der Einträge einer ListBox Treads der selben Klasse:
  BEGIN
  FOR i := 0 TO ListBox1.Items.Count - 1 DO
  BEGIN
  ...
  TFlappPrintThread.Create(ListBox1.Items.Strings, i, ListBox1);
  END;
  END;
  Da diese Printjobs unterschiedlich lange dauern, möchte ich wissen wieviele Threads gerade aktiv sind, da ich max. 16 Threads zugleich...