Zitat von
DJ-SPM:
Den Index MUSSTE ich definieren, da sonst immer die Meldung "Inkompatible Typen" in der Setter-Methode aufkamen. Ohne diese Variable kann nicht komipiliert werden. Warum weis ich auch nicht.
Warum? Einfach, Du deklarierst eine Array-Eigenschaft mit Index und die Getter- und Setter-Methoden müssen zu dieser Deklaration kompatibel sein. Ich würde es wie folgend ändern:
Delphi-Quellcode:
type
TContainer=class(TSimpleRWSync)
private
function getExpData(i: Integer): String;
public
procedure AddExpData(const Value: String);
property ExpData[i: Integer]: String read getExpData;
end;
Der Rest ist nicht aufgeführt
...
....