Kann mir jemand helfen folgende anweisung in Pascal zu übersetzen?

markieren

Code:

public interface IDesigner : IDisposable

{

  IComponent Component { get; }

  DesignerVerbCollection Verbs { get; }

}

public override DesignerVerbCollection Verbs

{

        get

        {

               DesignerVerb[] verbs = new DesignerVerb[3];

               verbs[0] = new DesignerVerb("Red Background", new EventHandler(RedBackground));

               verbs[1] = new DesignerVerb("Purple Background", new EventHandler(PurpleBackground));

               verbs[2] = new DesignerVerb("Green Background", new EventHandler(GreenBackground));

               return new DesignerVerbCollection(verbs);

        }

}

du schreibst:

Zitat:

Kann mir jemand helfen folgende anweisung in Pascal zu übersetzen?

Hilfe heißt nicht vollständig machen. Also, wo kommst du nicht weiter?

Du könntest einfach die Assembly durch Roeders Reflector jagen und dir den disassembelten Delphi-Code anschauen.

Ich komme genau an dieser stelle nicht weiter. Zum einen weiß ich nicht, wie genau ich es Übersetzen soll, zum anderen, gibt es keine Procedure namens DesignerVerbCollection oder Verbs die überschrieben werden soll.

markieren

Code:

DesignerVerbCollection Verbs { get; }  // hier

public override DesignerVerbCollection Verbs

{

        get

        {

               DesignerVerb[] verbs = new DesignerVerb[3];

               verbs[0] = new DesignerVerb("Red Background", new EventHandler(RedBackground));

               verbs[1] = new DesignerVerb("Purple Background", new EventHandler(PurpleBackground));

               verbs[2] = new DesignerVerb("Green Background", new EventHandler(GreenBackground));

               return new DesignerVerbCollection(verbs);

        }

}

Nu hab ich es selbst.

Sei doch so nett und poste das Ergebnis. Das könnte anderen weiterhelfen

Wenn ich es komplett hin bekommen habe, wird daraus ein Tutorial geschrieben. Das hilft besser, hier das ergebniss.

markieren

Delphi-Quellcode:

    function get_Verbs : DesignerVerbCollection; override;
    property Verbs : DesignerVerbCollection read get_verbs;