Wie auf 2 Threads warten?

**C.Schoch**

Hi,
Ich möchte zuerst 2 Threads starten, auf deren Beendigung warten und dann einen weiteren starten und wiederum auf diesen warten und erst dann die Variable "i" hochzäheln.
Leider krieg ich das überhaupt nicht hin

.

so funktionierts schonmal nicht, bekomme diverse Fehlermeldungen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainForm.btBackupClick(Sender: TObject);

var

  i : integer;

  hHandles : array[0..1] of THandle;

begin

  for i := 0 to lvSourceDestination.Items.Count - 1 do

  begin

    TtSearchSourceFiles.create(true);

    TtSearchDestFiles.create(true);

    TtSearchSourceFiles.sSourceDir := lvSourceDestination.Items[i].SubItems[0];

    TtSearchDestFiles.sDestDir := lvSourceDestination.Items[i].SubItems[1];

    TtSearchSourceFiles.Resume;

    TtSearchDestFiles.Resume;

    hHandles[0] := TtSearchSourceFiles.Handle;

    hHandles[1] := TtSearchDestFiles.Handle;

    case msgWaitForMultipleObjects(2,hHandles,true,INFINITE,QS_PAINT) of

    WAIT_OBJECT_0 + 0 and WAIT_OBJECT_0 + 1:

    begin

      TtSortFiles.Create(false);

    end

    end;

  end;

end;

Danke schon mal für die Hilfe

Wie auf 2 Threads warten?

Wie auf 2 Threads warten?

Forumregeln