Wie auf 2 Threads warten?

**C.Schoch**

Hi,
nach langem Probieren hab ichs hinbekommen und zwar so:

Oberflächen Unit:

Delphi-Quellcode:

			procedure TMainForm.btBackupClick(Sender: TObject);

var

  i : integer;

begin

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

  begin

    TtSearchSourceFiles.create(true);

    TtSearchDestFiles.create(true);

    TtSearchSourceFiles(Self{[hier lag der Fehler!!}).sSourceDir := lvSourceDestination.Items[i].SubItems[0];

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

    TtSearchSourceFiles([Self).Resume;

    TtSearchDestFiles(Self).Resume;

    TtSortFiles.Create(false);

  end

end;

Thread:
Den entscheidenden 3. Thread auf die ersten zwei per Event und WaitForMultipleObjects warten lassen.

Wie auf 2 Threads warten?

Re: Wie auf 2 Threads warten?

Forumregeln