also sowas wie:

zusammenfalten · markieren

Delphi-Quellcode:

tmyresult = procedure(const aList : TStrings) of object;


TmyThread = class(TThread)
 private
   fresultproc : tmyresultproc;
 public
 constructor Create(const aresultproc : tmyresult);
 procedure ResultThread;
 procedure execute ; override;
end;


constructor TmyThread.Create(const aresultproc : tmyresult);
begin
 inherited Create(false);
 fresultproc := aresultproc;
end;


procedure TmyThread.execute ;
begin
 while not terminated do
 begin
   // tu was
 end;
 synchronize(ResultThread);
end;

procedure TmyThread.ResultThread;
begin
 if assigned(fresultproc) then
  fresultproc(FResultstringlist);

end;

markieren

Delphi-Quellcode:

// in Form
 procedure tmyform.resultThread(const aList : TStrings);
 begin
  //tue was mit alist
 end;


//Aufrufen mit :

TmyThread.create(myForm.resultThread);

Beim form.Resultthread hast Du aber doch dasselbe Problem in grün, oder?

Thread

zusammenfalten · markieren

Delphi-Quellcode:

constructor TThread.Create(aList: TStringList; aFormxyz: TFormxyz );
begin
 inherited Create (false) ;
  FreeOnTerminate:= True;
  FResultstringlist:= TStringList.Create;
  FList:= TStringList.Create;
  FList.Assign(aList);
  FFormxyz:= aFormxyz;
 
end;

procedure TThread.ResultThread;
begin
 FFormxyz.SetThreadResult(FResultstringlist);
end;

In der per Button erzeugten Form
LThread:= TThread.Create(LList,Formxyz); und es wird wie vorher die falsche Form angesprochen...........



@SirRufo

Die FormXYZ wird ja x Fach erzeugt als LFormxyz mit unterschiedlichen Parametern.
und bleibt erhalten, bis die Ergebnisse des/der Threads ausgewertet sind.
Allerdings schreibt der Thread nicht das Ergebnis in LFormxyz(x) (die den Tread gestartet hat ) sondern in die "Grund-Formxyz"

Kannst du mal mehr Code zeigen? In der Threadklasse sieht soweit alles gut aus. Ich nehme an, dass du beim Erstellen der Forms irgendwas falsch machst. Eventuell weist du alle Instanzen der selben Variable zu?

Zitat von ScharfeMietze:

In der per Button erzeugten Form
LThread:= TThread.Create(LList,Formxyz); und es wird wie vorher die falsche Form angesprochen...........

Die gibst du ja in der Zeile auch an. Du meinst wohl eher Self.

markieren

Delphi-Quellcode:

LThread := TThread.Create(LList, Self);
// Self ist das Formular, in dessen Methode du dich gerade befindest

Sobald du mehrere Instanzen eines FormuLars verwendest solltest du wirklich wie schon vorgeschlagen die globale Variable Formxyz löschen um Verwechslungen zu vermeiden.

Tadaaaaaaaa
Nun seh ich auch den Wald vor lauter Bäumen. Das "self" war die Lösung. Auch der Knoten ist geplatzt mit der "Globalen Variable"
Ich danke für das fehlende Puzzleteil!

Lieben Gruß und vielen vielen Dank
SM