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