Im Thread variable 0?

[Lyan]

Hallo,

ich verstehe nicht ganz warum mein Integer, den ich in der FormMain als Public deklariert habe und im ButtonClick Event ihm einen Wert zuweise im Thread immer wieder 0 ist?

Delphi-Quellcode:

private
  iTest : Integer;

tformmain.onbuttonclick
var
  thread : TTestThread;
  ibuf : Integer;
begin
  iTest := strtoint(edit1.text);
  thread := TTestthread.Create(True);
  thread.freeonterminate := True;
  thread.Resume;
end;

procedure ttestthread.execute;
var
  iTestInThread : Integer;
begin
  iTestInThread := Formmain.iTest;
  showmessage(iTestInThread) = 0...
end;

Wie kann ich auf den Wert zugreifen?

Danke

[Sir Rufo]

Schon mal gar nicht direkt. Das knallt schneller als man papp sagt.

Es sollte aber eine Unmenge an Beispielen hier im Forum zum Thema Threads geben (und warum man darauf achten sollte in welchem ThreadKontext man sich gerade aufhält)

[Popov]

Es gibt auch ein sehr schönes Beispiel im Demo Ordner.

[Luckie]

Übergebe die Daten als Properties an das Thread-Objekt.

[jaenicke]

FreeOnTerminate + Resume ist ganz böse... wenn Execute zu schnell durch ist, ist der Thread schon freigegeben, wenn du versuchst auf dem freigegebenen Objekt Resume auszuführen.
Lass den Thread doch gleich loslaufen (False als Parameter an den Konstruktor) statt den überhaupt angehalten zu erzeugen.

Zudem machst du ein ShowMessage aus einem Thread heraus. Noch böser. :shock:
Dass man auf visuelle Sachen nicht zugreifen sollte, steht sogar im Quelltext als Warnung, wenn du über den Assistenten einen Thread anlegst...

Am saubersten sieht das so aus:

Delphi-Quellcode:

TTestThread = class(TThread)
private
  FTest: Integer;
  procedure ShowMyTest;
public
  constructor Create(const ATest: Integer); reintroduce;
  property Test: Integer read FTest write FTest;
end;

procedure TFormMain.ButtonClick(Sender: TObject);
begin
  TTestThread.Create(StrToInt(Edit1.Text));
end;

constructor TTestThread.Create(const ATest: Integer); reintroduce;
begin
  inherited Create(False);
  FTest := ATest;
end;

procedure TTestThread.Execute;
begin
  Synchronize(ShowMyTest);
end;

procedure TTestthread.ShowMyTest;
begin
  ShowMessage(IntToStr(FTest));
end;

[Lyan]

Zitat:

Zitat von jaenicke (Beitrag 1187199)

FreeOnTerminate + Resume ist ganz böse... wenn Execute zu schnell durch ist, ist der Thread schon freigegeben, wenn du versuchst auf dem freigegebenen Objekt Resume auszuführen.
Lass den Thread doch gleich loslaufen (False als Parameter an den Konstruktor) statt den überhaupt angehalten zu erzeugen.

Zudem machst du ein ShowMessage aus einem Thread heraus. Noch böser. :shock:
Dass man auf visuelle Sachen nicht zugreifen sollte, steht sogar im Quelltext als Warnung, wenn du über den Assistenten einen Thread anlegst...

Am saubersten sieht das so aus:

Delphi-Quellcode:

TTestThread = class(TThread)
private
  FTest: Integer;
  procedure ShowMyTest;
public
  constructor Create(const ATest: Integer); reintroduce;
  property Test: Integer read FTest write FTest;
end;

procedure TFormMain.ButtonClick(Sender: TObject);
begin
  TTestThread.Create(StrToInt(Edit1.Text));
end;

constructor TTestThread.Create(const ATest: Integer); reintroduce;
begin
  inherited Create(False);
  FTest := ATest;
end;

procedure TTestThread.Execute;
begin
  Synchronize(ShowMyTest);
end;

procedure TTestthread.ShowMyTest;
begin
  ShowMessage(IntToStr(FTest));
end;

Habe mir auch mal das Beispiel von Embarcadero angeschaut mit den Sortieralgos..
Danke an alle & jaenicke ganz besonders. Das mit der showmessage mache ich nicht wirklich, der obige Code diente nur als Pseudocode um zu zeigen was ich vorhabe :)

Dein Code funktioniert umgesetzt in mein Projekt schonmal einwandfrei, nun muss ich mich nurncoh im Netz schlau machen warum man das so machen muss und was passiert wenn man es nicht so macht :D


Lyan

[Sir Rufo]

@jaenicke
Da der Thread als Suspended erzeugt wurde muss dieser mit Resume zum Loslaufen überredet werden.
Bis zum Resume, kann man ganz gemütlich alle Properties des Threads setzen ;)