Incompatible Typen... Umgehen?

[Kedariodakon]

Zitat von sniper_w:

So geht das ganze.

Das das so geht is klar

Zitat von sniper_w:

Allgemein "Get" funktionen dürfen keinen Parameter übergeben, nur "Set".

Die Aussage ist Falsch!

Beispiel:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses   SysUtils;

Const
   cSomethingThing: Array[ 1..4 ] Of   String = (   'Quark',
                                                                        'Torte',
                                                                        'Sahne',
                                                                        'Kirsch' );

Type
   TSomeThing   = Class
   Private
      Function GetASomeSingDingeWing( Const Index: Integer): String;
      { Private-Deklarationen }
   Public
      { Public-Deklarationen }
      Property   MySomeSingDingeWing1:   String   Index 1 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing2:   String   Index 2 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing3:   String   Index 3 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing4:   String   Index 4 Read GetASomeSingDingeWing;
   End;


Implementation

{ TSomeThing }

Function TSomeThing.GetASomeSingDingeWing( Const Index: Integer ):   String;
Var   i: Integer;
Begin
   Result   := '';
   //   DoSomething...
   For   i   := 1 To   Index Do Begin
      Result   :=   Result   + cSomethingThing[ Index ];
   End;
End;

end.

Zwar Sinnlos, aber egal

Bye