Du erzeugst doch eine neue Form-Instanz, diese gibst Du dem Thread mit, der sie sich dann in einem privaten Feld merkt.

Hi,

ich bin mir nicht sicher was du genau willst oder wo das Problem liegt aber ich hätte zwei Dinge. ^^
Also im 2. Code hast du ja Formxy.SetThreadResult(FResultstringlist); stehen und nicht LFormXY ist das vielleicht das Problem? Dein Formular heisst TFormXY, Delphi erstellt ja gerne diese Globalen Variablen welcher in dem Fall genau so heissen würde, also FormXY. Ich kenne den Code nicht also frage nur um sicher zu gehen. ^^

Und sonst übergebe wie schon gesagt die erzeugte Form Instanz beim Konstruktor der Thread Klasse. Edit: Oder einfach irgendwann

Mir fehlt die genaue Syntax.
wenn ich z.B. 3x auf den Button drücke,
habe ich doch 3 Instanzen die sich LFormxyz nennen.
Wie müsste die Codezeile des construcktor aussehen und auf der LFormseite das Create?
Da ich bisher nie Instanzen mit Threads gestartet habe kam ich immer gut hin.
Ich bin Blond bitte helft mir
Lieben Gruß und Danke

SM

Zitat von milos:

Also im 2. Code hast du ja Formxy.SetThreadResult(FResultstringlist);[/I] stehen und nicht LFormXY ist das vielleicht das Problem?

LFormxy.SetThreadResult(FResultstringlist) schluckt Delphi gar nicht....

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.