Bräuchte eine kleine Übersetzung aus C#

[Taladan]

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

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);

        }

}

[SirThornberry]

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?

[Khabarakh]

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

[Taladan]

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.

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);

        }

}

[Taladan]

Nu hab ich es selbst.

[Stanlay Hanks]

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

[Taladan]

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

Delphi-Quellcode:

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