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?

zusammenfalten · markieren

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

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)

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

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

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.
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:

zusammenfalten · markieren

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;

Zitat von 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.
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:

zusammenfalten · markieren

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


Lyan

@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