@sirius: Der Pointer den ich da übergebe zeigt ins array auf die nummer die für den thread zuständig ist. Da dürfte wohl nix passieren.

Da steht aber nur index. Und wo ist die Variable index deklariert?

Das ist doch nur ein beispiel. Das ist nichtmal meine orginal Source. Das habe ich eben hier im post getippert um zu veranschaulichen was ich meine.

Hier der orginal aufruf.

FThread[i].ThreadHandle:=BeginThread(nil, 0, @FMake,@FThread[i].MyID, 0, FThread[i].ThreadID);

Ah, ok. Aber du kannst doch gleich den Pointer auf den Record übergeben:

zusammenfalten · markieren

Delphi-Quellcode:

type
  PMyThread = ^TmyThread;
  TMyThread = record
   InUse :Boolean;
   FormHandle :THandle;
   Text :String;
   ..... usw.
end;
var
   FThread :Array[0..20] of TMyThread;



function GeloesterThread(MyThread: PmyThread): LongInt; stdcall;
begin
    //in i steht dann der index
  MyThread.InUse:=False;
end;



FThread[i].ThreadHandle:=BeginThread(nil, 0, @FMake,integer(@FThread[i]), 0, FThread[i].ThreadID);

Naja, das ist doch wie gehopst und gesprungen. Ich sagte ich habe probs mit der Syntax, nicht das ich nicht weiss was ich mache

Wobei.... so genau weiss ich eh nie was ich mache

Rückmeldung!!

Das mit BeginThread hat mein prob gelöst. Nun rennt es sauber. Im moment laufen 14 Threads sauber "nebeneinander". Gibt es da eine obergrenze? Ich habe im moment bis zu 100 threads vorgesehen.

Nochmal danke für den tipp.

So viel, bis der Speicher ausgeht. Aber was machen deine Threads? Je nach Aufgabe können Threads auch kontra produktiv sein.

Zitat von Luckie:

So viel, bis der Speicher ausgeht.

Das ist die Grenze für schlafende Threads. Gleichzeitig laufen sollten aber maximal 16.

Wo kann ich das nachlesen? 16 kommt mir dich etwas wenig vor.

Zitat von Luckie:

Wo kann ich das nachlesen? 16 kommt mir dich etwas wenig vor.

Wenn man die vom System (andere Benutzer) mitzählt auf jeden fall.