Synchronize mit Argumenten

[himitsu]

Nur um es mal erwähnt zu haben:

Delphi-Quellcode:

var S: String;

begin
  ...
  S := 'Hallo';
  TThread.Synchronize(nil, 
    procedure 
    begin
      Memo1.Lines.Add(S);
    end);
  ...
end;

PS: Ein Delphi/RAD 2009/2010/XE ist dafür schon nötig.

[Rob09]

Sir Rufo hat folgendes vorgeschlagen (Beitrag #4):

Zitat:

Delphi-Quellcode:

procedure TMyOwnThread.CallError( const Content : string );
procedure SyncError;
begin
  if Assigned( FInstError )
    then FInstError( Content );
end;
begin
  Synchronize( SyncError );
end;

Bei mir meckert der Compiler da aber in der Synchronize(...)-Zeile: "Incompatible types: 'method pointer and regular procedure'". Jemand ne Ahnung, woran das liegen könnte? Delphi 6?

Gruß!
Robert

[Luckie]

Guck dir doch mal die beiden ersten Zeilen von deinem Code an. Fällt dir da nichts auf?

[Rob09]

Eigentlich nicht... Prozedur innerhalb Prozedur geht doch, oder?

[Rob09]

Ah, du meinst, das Problem ist, dass SyncError nicht mehr "procedure of object" ist?

[geskill]

Ne, SyncError muss eine Klassenmethode sein

[Rob09]

Okay...

Eine Sub-Prozedur kann aber prinzipiell keine Klassenmethode sein, oder? D.h. wie wäre dann überhaupt Sir Rufos Vorschlag zu realisieren? Und wieso hatte damit noch niemand vor mir ein Problem???

[sirius]

Zitat von Rob09:

Okay...

Eine Sub-Prozedur kann aber prinzipiell keine Klassenmethode sein, oder? D.h. wie wäre dann überhaupt Sir Rufos Vorschlag zu realisieren? Und wieso hatte damit noch niemand vor mir ein Problem???

Dann lies mal bis Beitrag #10!

[Rob09]

Boah, heute hab ich wirklich Tomaten auf den Augen

Danke für den Hinweis, hatte ich einfach übersehen.

Beste Grüße!
Robert

[himitsu]

Zitat von geskill:

Ne, SyncError muss eine Klassenmethode sein

Jupp, original mußte es so sein, aber seit den Generics gibt es ein zweites Synchronize, welches Prozeduren, Methoden, diese komischen Inline-Prozeduren (innerhalb einer anderen Prozedur/Methode, deren Name ich ständig vergesse) oder gar anonyme Methoden entgegennimmt.

Da kann man dann auch so kranke Sachen machen, wie eben dieses

Delphi-Quellcode:

var
  X: String;
begin
  X := 'Hallo Welt!';
  Synchronize(procedure
    begin
      ShowMessage(X);
    end);
end;

Geht aber erst seit D2009/D2010.
Aus einer TThread-Methode heraus und das in #41 geht überall.

Wenn man etwas nur an dieser Stelle synchronisieren will, dann finde ich es so viel übersichtlicher, da der Code dort steht, wo er aufgerufen wird.
Wird genügend Code an mehreren Stellen aufgerufen, dann natürlich immernoch die getrennte Methode,
wobei man in diesem Synchronize-Bereich auch eine Methode, mit Parametern, aufrufen kann.