Auto-Vervollständigung und anonyme Prozeduren

[Scurra]

Hallo zusammen,

Ich habe gerade folgendes Problem, das mich etwas stört: In einer Unit mit einer Thread-Klasse mache ich aus dem Thread heraus einen Callback in den Main-Thread mittels TThread.Queue. Das Ganze sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TMyThread.Run;
var
  airplanes: IAirplanes;
begin
  airplanes := ...;
  ...
  TThread.Queue(self, procedure
                      begin
                        FCriticalSectionCallback.Enter;
                        try
                          if Assigned(FCallback) then
                            FCallback(airplanes);
                        finally
                          FCriticalSectionCallback.Leave;
                        end;
                      end);
end;

Die anonyme Prozedur führt dazu, die Auto-Vervollständigung von Delphi nicht mehr funktioniert. Wenn ich beispielsweise irgendwo ein "begin" schreibe und Enter drücke, wird kein "end" automatisch eingefügt, was ziemlich störend ist. Wenn ich den Inhalt der anonymen Prozedur leer mache, dann funktioniert es.

Weiß jemand, wie man das Problem vermeiden kann?

Ich habe es bereits mit der Deklaration einer Methode versucht. Problem ist hierbei allerdings, dass die Methode, die man als Parameter an TThread.Queue übergeben muss, selbst keinen Übergabeparameter haben darf (muss vom Typ "procedure of object" sein). Ich muss jedoch auf die lokale Variable "airplanes" zugreifen.

Während ich den Beitrag geschrieben habe, ist mir noch folgende Idee in den Kopf gekommen:

Delphi-Quellcode:

TMyThread = class(TThread)
strict private
  procedure ExecuteCallback;
  ...
end;

implementation

procedure TMyThread.ExecuteCallback(const Airplanes: IAirplanes);
begin
  FCriticalSectionCallback.Enter;
  try
    if Assigned(FCallback) then
      FCallback(Airplanes);
  finally
    FCriticalSectionCallback.Leave;
  end;  
end;

procedure TMyThread.Run;
var
  airplanes: IAirplanes;
begin
  airplanes := ...;
  ...
  TThread.Queue(self, procedure
                      begin
                        ExecuteCallback(airplanes);
                      end);
end;

Auf diese Weise funktioniert die Auto-Vervollständigung allerdings leider auch nicht. Eine weitere Idee wäre, den Parameter "airplanes" vor dem Aufruf an TThread.Queue in einem Feld zu speichern und anstatt der anonymen Prozedur eine Methode zu erstellen, die wie ExecuteCallback implementiert ist, aber keinen Übergabeparameter hat, stattdessen auf das Feld zugreift. Da bin ich mir allerdings nicht sicher, ob das threadsafe ist, weil, die Methode Run mehrmals aufgerufen wird und ich nicht weiß, ob es einen Unterschied macht, ob die an TThread.Queue übergebene Prozedur zum Zeitpunkt des zweiten Aufrufs schon ausgeführt wurde oder nicht. Ich möchte sicher sein, dass der jeweils gesetzte Wert von airplanes verwendet wird. Bei der Verwendung eines Feldes sehe ich da zumindest eine mögliche Fehlerquelle.

Hat jemand eine Lösung? :)

[Scurra]

Kurz nachdem ich den Beitrag abgeschickt habe, habe ich eine Lösung gefunden:

Delphi-Quellcode:

procedure TMyThread.Run;
var
  airplanes: IAirplanes;
begin
  airplanes := ...;
  ...
  TThread.Queue(self, procedure
                      begin
                        ExecuteCallback(airplanes) // <-- der Strichpunkt am Ende dieser Zeile muss weggelassen werden
                      end);
end;

Wenn man den Strichpunkt am Ende der Zeile in ExecuteCallback(airplanes) weglässt, dann funktioniert die Auto-Vervollständigung wieder.

Mich würde trotzdem interessieren, ob ihr schon das gleiche Problem hattet und ob ihr ggf. auf eine andere Lösung gestoßen seid.