String von Thread an Programm senden - Stilfrage!

**TheMiller**

Hallo,

ich habe einen Thread, der einen String an die Hauptform senden soll. Da es sich nur um einen String handelt, möchte ich kein WM_COPYDATA verwenden. Nun habe ich eine Lösung gefunden, frage mich aber, ob diese "sauber" genug ist. Gerne nehme ich Verbesserungsvorschläge an!

Das Prinzip ist folgendes: Ich habe in der Hauptanwendung eine globale Stringvariable. Den Pointer übergebe ich an den Thread. Dieser erstellt einen String und greift direkt auf den Pointer zu und verändert die Variable. (Es ist sichergestellt, dass sich an dem Pointer und an der Inhalt der Variable in dieser Zeit nichts ändert). Danach kann ich normal auf diese Variable zugreifen. Ist das so in Ordnung?

zusammenfalten · markieren

Delphi-Quellcode:

			var

  s_thread: String;

..

..

procedure TForm1.Button1Click(Sender: TObject);

var

  Th: TMyThread;

begin

  Th: TMyThread.Create(True);

  Th.s:=@s_thread;

  Th.resume;

end;

markieren

Delphi-Quellcode:

			procedure TMyThread.Execute;

var

  str: String;

begin

  str:='Hallo, ich bin ein Test';

  s^:=str;

end;

Danke im Voraus

String von Thread an Programm senden - Stilfrage!

String von Thread an Programm senden - Stilfrage!

Forumregeln