So nochmal ich.
Der Code lässt sich nun schon mal übersetzen. Danke Dirk.
Funktioniert nur noch nicht so wie gedacht ...
Beim ersten Eintrag geht alles glatt. Das Event wird gesetzt, der Thread rennt an, er verarbeitet die Daten und macht das Dispose.
Wenn ich einen zweiten Eintrag hinzufüge macht der Thread aber nüscht mehr auch wenn das event abgefeuert wird.
Laufe tut der Thread allerdings wohl noch - sieht man ja im Debugger.
Zum Erzeugen der Klasse und des Thread nutze ich den Code:
Delphi-Quellcode:
var Form3 : TForm3;
Kette : TDataClass;
Work : TWorker;
implementation
procedure TForm3.Button1Click(Sender: TObject);
begin
Kette.Add('Name', 1, 2, 3, 4);
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Kette := TDataClass.Create;
work := TWorker.Create(Kette);
work.Start;
end;