Innerhalb einer Klasse erscheint bei dem property eine Fehlermeldung

[juergen]

Ahh ok, vielen Dank Uwe!
Nach dem hinzufügen des Setter/ Getter kommt die selbe Fehlermeldung am abschließenden Semikolon.

Delphi-Quellcode:

  TJsonSettings = CLASS
  PRIVATE
    FShorthandSymbol_Arr ARRAY [1 .. 80] OF STRING;

    PROCEDURE SetShorthandSymbol( CONST Idx: Integer; Value: STRING );
    FUNCTION GetShorthandSymbol( Idx: Integer ): STRING;
  PUBLIC
    CONSTRUCTOR Create;
    DESTRUCTOR Destroy; OVERRIDE;
    PROPERTY ShorthandSymbol[Idx: Integer]: STRING READ GetShorthandSymbol WRITE SetShorthandSymbol;  // <=== Hier erscheint "E2008 Inkompatible Typen"
  END;
  
  ...
  
PROCEDURE TJsonSettings.SetShorthandSymbol( CONST Idx: Integer; Value: STRING );
BEGIN
   IF ( Idx >= 0 ) AND ( Idx < Length( FShorthandSymbol_Arr ) ) THEN 
     FShorthandSymbol_Arr[Idx] := Value;
END;

FUNCTION TJsonSettings.GetShorthandSymbol( Idx: Integer ): STRING;
BEGIN
  Result := FShorthandSymbol_Arr[Idx];
END;