E2555 Symbol '...' kann nicht erfasst werden

[t2000]

Hi,

in der unten stehenden Funktion bekomme ich den Fehler (in der IDE) E2555 Symbol 'DeleteSuccess' kann nicht erfasst werden.

Kompilieren kann ich. Es wird aber beim kompilieren der TMS WebCore Compiler Aufruf gemacht. Also ist in der IDE Win32 definiert und beim komilieren nicht mehr. (Stattdessen PAS2JS)

Ich könnte das ignorieren, möchte aber die Fehlermeldungen aus der IDE eliminieren.

Ob die DeleteSuccess Routine, wie im Code sichtbar, innerhalb oder außerhalb von DoDelete steht, spielt für den Fehler keine Rolle.

Delphi-Quellcode:

procedure TMyForm.EineFunktion;

//  procedure DeleteSuccess( Response: TObject);
//  begin
//    Log( 'Alles klar.');
//  end;

  procedure DoDelete( Para: TObject);

    procedure DeleteSuccess( Response: TObject);
    begin
      Log( 'Alles klar.');
    end;

  begin
    Funktionsaufruf( {$IFDEF PAS2JS}TMyProc( @{$ENDIF}DeleteSuccess{$IFDEF PAS2JS}){$ENDIF});
  end;

begin
  DoDelete( nil);
end; // <- Fehlerposition

Die Fehlerposition wird am Ende der äußeren Funktion angezeigt.

Jemand ne Idee, was das sein könnte?
Ähnliche Aufrufe stehen sehr viel in meinem Code.
Und an der Benennung liegt es nicht.

VG

[jaenicke]

Das Problem ist, dass du die Referenz auf die Prozedur als Parameter übergibst, so dass diese gespeichert werden und später verwendet werden könnte. Der Aufruf der ursprünglichen Methode EineFunktion kann dann aber schon beendet sein. Und daher ist der Scope dann auch nicht mehr vorhanden.

Ich weiß nicht, ob das mit TMS WebCore geht, aber die naheliegendste Lösung wäre, eine anonyme Methode zu verwenden. Dann wird der Scope dort mit gespeichert, so dass das Problem nicht mehr besteht.

Alternativ kannst du auch eine Methode deines Objekts verwenden, denn auch da wird die Objektreferenz mit übergeben.

Und dann könntest du noch ein Interface verwenden und übergeben, das diese Methode enthält.

[t2000]

Jau, das war's.

Delphi-Quellcode:

procedure TMyForm.EineFunktion;

  procedure DoDelete( Para: TObject);
  begin
    Funktionsaufruf( procedure( Response: TObject)
                     begin
                       Log( 'Alles klar.');
                     end);
  end;

begin
  DoDelete( nil);
end;

So funkltioniert es.

Danke.