Innerhalb einer Klasse erscheint bei dem property eine Fehlermeldung

[juergen]

Hallo zusammen,

ich möchte die "Felder" einer Json-Datei in meine Klasse übernehmen. Das klappt soweit. Allerdings enthält die Json-Datei auch ein Array (string).
Und da weiß ich nicht wie ich das Array in meine Klasse bekomme.

Vereinfachter Code-Versuch:

Delphi-Quellcode:

  TmyClass = class
  private
    myArr: array [1..80] of string;
  public
    constructor Create;
    destructor Destroy; override;
    property myArr:[Idx: Integer]: string read myArr write myArr:
  end;

Hierbei erscheint bei "write" im Editor die Fehlermeldung: "E2008 Inkompatible Typen".

Was mache ich hier falsch?

Vielen Dank schon mal vorab.

[Uwe Raabe]

Array Properties brauchen zwingend einen Getter/Setter.

Delphi-Quellcode:

    property myArr:[Idx: Integer]: string read GetmyArr write SetmyArr:

[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;

[jaenicke]

Bei dem Idx ist ein const zu viel oder in der property-Deklaration eins zu wenig (die Deklaration von Idx muss übereinstimmen). Das geht:

Delphi-Quellcode:

    function GetShorthandSymbol(const AIdx: Integer): string;
    procedure SetShorthandSymbol(const AIdx: Integer; const Value: string);

    property ShorthandSymbol[const AIdx: Integer]: string read GetShorthandSymbol write SetShorthandSymbol;

Oder du lässt es überall weg.

Tipp:
Schreib einfach nur:

Delphi-Quellcode:

    property ShorthandSymbol[const AIdx: Integer]: string;

Dann drück Strg + Shift + C und schon wird der Rest automatisch ergänzt.

[Olli73]

Wenn du das Array nur als Feld/Variable deklarierst und das property ganz weg lässt, sollte es auch funktionieren.

[juergen]

Vielen Dank, jetzt funktioniert es.
@jaenicke,
Der Tipp mit Strg + Shift + C hilft mir zukünftig sehr! Genau sowas hatte ich immer vermisst. :dp:

[himitsu]

Delphi-Quellcode:

property ShorthandSymbol: string;

Bei NichtArray-Property erstellen CodeCompletattion und LiveTemplates auch das Feld (die Variable) in der Klasse, falls es noch fehlt.
https://docwiki.embarcadero.com/RADS...oard_Shortcuts


Es gibt auch mehrere Live-CodeTemplates dafür.

Strg+Leerzeichen und "prop" schreiben
"prop" schreiben und dann Strg+Leerzeichen
...
Anhang 56265

Aber leider ist das CodeCompletaion hier einfach nur extrem doof und selbst wenn man etwas genau/komplett schreibt, dann wird das nicht selektiert und steht hier versteckt gaaaaaaaaaaaaaaanz unten, in der Liste. :freak:

oder siehe Menü > Ansicht > Vorlagen
Anhang 56266