Delphi 10 "Seattle" erschienen

[braune]

Nach erster Begeisterung nun etwas Ernüchterung.

Hat sich jemand mal dem Beispiel (Json) JsonWorkbench.dpr gewidmet?
Nachdem ich die Unit1 und Unit2 durch die richtigen Units ersetzt hatte funktioniert die Demo nun
Danach fügte ich ReportMemoryLeaksOnShutdown := True; in das Hauptformular ein um Speicherfehler zu prüfen.

Wenn mindestens eine Konvertierung (Beautify, Minify, To Delphi, To Writer) durchgeführt wurde kommt Unexpected Memory Leak beim Beenden des Programmes.

Mein System:
Windows 7 64Bit in VM
Delphi 10 Seattle Pro + Mobile Package
Compilierung 32-Bit-Windows / 64-Bit-Windows

Hat jemand eine Ahnung wie man nun dem Fehler auf die Schliche kommt?

[Rollo62]

Welche Unit1 ?



Wollte das gerade mal ausprobieren, du hast Recht
- man muss alle drei Units einfügen, weil das Projekt kein Unit1/Unit2 enthält.

Sieht gut aus bis zu ReportMemoryLeaks.
Ich bekomme da die gleichen Fehler, sobald einer der 4 Tasten einmal gedrückt wurde.
Nur Open/Close geht ohne Fehler.

Die Fehler sind TStringBuilder / TStringReader / TStringWriter.

Also ich vermute mal stark das dort etwas nicht stimmt, ich hoffe nur das es nicht die TStringBuilder-Klasse selbst ist.
Das ist nämlich wieder so eine Basic Klasse die in den neuen Mobile Anwendungen wichtig ist.
Habe im Moment keine Zeit im Code nachzusehen, aber das hole ich nach.

Rollo

[Lemmy]

ich kann nicht mal das Projekt laden - weder dpr noch dproj - MadExcept meldet gleich eine Exception mit der Exception Class "unkown" in TFileStream.Create


Habe jetzt die Samples mal aktualisiert - jetzt kann ich das Projekt laden und der unit-Fehler ist ebefalls behoben (schon am 4.9.)

[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