In Thread Zeile(n) zu Memo bzw. RichEdit hinzufügen

[luke2]

Hi,

So weit ich weiss darf man in Threads ja nicht direkt auf VCL-Controls zugreifen.
Wie kann man es dann am besten machen? Hatte da an Memo.Perform() gedacht. Würde es damit gehen? Wenn ja, wie?
Es geht nicht um einen TThread, sondern um einen "normalen" mit BeginThread() erstellen Thread.

[Apollonius]

Gleiches Problem. Wenn du nur Perform aufrufen willst, solltest du SendMessage mit dem Handle des Controls als dem ersten Parameter nehmen. Das macht genau das Gleiche wie Perform, aber synchronisiert vorher die Threads.

[luke2]

OK, Danke.
Doch welche Nachricht muss ich benutzen, um eine Zeile hinzuzufügen?
Hier habe ich nichts passendes gefunden.

[Apollonius]

Hoppla, ich dachte, du wüsstest die Nachricht schon - da habe ich den Ausgangspost nicht gründlich genug gelesen.

Nimm lieber TThread.Synchronize. Du musst dich dazu nicht in einem TThread befinden, es gibt auch einen statischen Overload.

[sirius]

Zitat:

Zitat von Apollonius

Du musst dich dazu nicht in einem TThread befinden, es gibt auch einen statischen Overload.

Bei der man allerdings eine Methode braucht (auch wegen der besch*** Parameterübergabe). Ist die Frage, ob das hier der Fall ist.

[luke2]

Das ist alles ziemliches Neuland für mich.
Ich habe es zum Testen jetzt mal so versucht:

Delphi-Quellcode:

procedure tp;

  procedure test;
  var i:integer;
  begin
    for i:= 1 to 100 do form1.memo1.lines.add(inttostr(i));
  end;

begin
  tthread.Synchronize(nil,test);
end;

Das ist die Thread-Prozedur.

ABer da gibt es die Meldung:

Zitat:

[Error] Unit1.pas(37): There is no overloaded version of 'Synchronize' that can be called with these arguments

Ein ganz kleines funktionierendes Beispiel wäre sehr nett! :)

[sirius]

Kannst du noch kurz die Zeile mit Beginthread zeigen?

Edit: Und vielleicht begründen, warum du es ohne Klasse (egal ob mit oder ohne TThread) machen willst.

[Apollonius]

Am einfachsten ist es wohl so:

Delphi-Quellcode:

type TMyClass = class
  procedure Method;
end;

procedure TMyClass.Method;
var i:integer;
begin
  //nicht auf Self zugreifen
  for i:= 1 to 100 do form1.memo1.lines.add(inttostr(i));
end;

procedure Foo;
begin
  TThread.Synchronize(nil, TMyClass(nil).Method);
end;

[luke2]

super Danke. Das funktioniert! :thumb:

@sirius
Also aufrufen tue ich es einfach so

Delphi-Quellcode:

beginthread(nil,0,@tp,nil,0,c);

Ich glaube eine Klasse wäre für mein Vorhaben ein wenig überladen, obwohl ich jetzt ja auch eine habe :angel2:

[luke2]

Ich habe doch noch eine Frage.
Wenn ich der Methode Parameter übergeben will, wie kann ich das am besten machen?
Muss ich dafür Felder in der Klasse anlegen und vor dem Aufruf der Methode diese befüllen, oder geht das auch besser?