Delphi 10 "Seattle" erschienen

[braune]

Hier die funktionierende Variante:

Code:

TJsonStringReader = class(TJsonTextReader)
private
  FStrinReader: TStringReader;
public
  constructor Create(const AJson: string);
  destructor Destroy;
end;

Ändern in

Code:

TJsonStringReader = class(TJsonTextReader)
private
  FStrinReader: TStringReader;
public
  constructor Create(const AJson: string);
  destructor Destroy; override; // override hinzu
end;

Den Destructor ändern in

Code:

destructor TJsonStringReader.Destroy;
begin
  FStrinReader.Free;
  inherited; // Destroy entfernt
end;

Für die anderen Klassen ebenso durchführen, dann