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