Jupp, statt einer Get-Methode und vielleicht auch noch einer
setWert1AsReal, lässt sich ein Property bestimmt intuitiver nutzen.
Vor allem wenn man bedenkt, wo man noch alles etwas einsparen/kombinieren/vereinheitlichen kann.
Delphi-Quellcode:
type
TTest = class
private
function GetWertAsReal(Index: Integer): Real;
procedure SetWertAsReal(Index: Integer; Value: Real);
public
//Werte: array[1..2] of String;
Wert1: String;
Wert2: String;
property Wert1AsReal: Real index 1 read GetWertAsReal write SetWertAsReal;
property Wert2AsReal: Real index 2 read GetWertAsReal write SetWertAsReal;
property WertAsReal[Index: Integer]: Real read GetWertAsReal write SetWertAsReal; // hier im Getter/Setter die Bereichsprüfung nicht vergessen
end;
procedure TTest.GetWertAsReal(Index: Integer): Real;
{
begin
Result := wandleStringZuReal(Werte[Index]);
end;
}
var
S: String;
begin
case Index of
1: S := Wert1;
2: S := Wert2;
end;
Result := wandleStringZuReal(S);
end;
{
begin
case Index of
1: Result := wandleStringZuReal(Wert1);
2: Result := wandleStringZuReal(Wert2);
else Result := 0; // wegen Compilerwarnung
end;
end;
}