Hallo,
ich habe gerade zum ersten mal ein bisschen mit JSON experimentiert. Leider komme ich an einer Stelle nicht weiter:
Delphi-Quellcode:
class function TConfigurationSettingsHandler.LoadSettings
: TConfigurationSettings;
var
Strings: TStrings;
begin
Strings := TStrings.Create();
if FileExists(ParamStr(0) + '.json') then
begin
Strings.LoadFromFile(ParamStr(0) + '.json'); // Abstrakter Fehler!
Result := TJson.JsonToObject<TConfigurationSettings>(Strings.Text);
end
else
Result := TConfigurationSettings.Create();
Strings.Free;
end;
class procedure TConfigurationSettingsHandler.SaveSettings
(Settings: TConfigurationSettings; FilePath: String);
var
Strings: TStrings;
begin
if FilePath = '' then
FilePath := ParamStr(0) + '.json';
Strings := TStrings.Create();
Strings.Add(TJson.ObjectToJsonString(Settings)); // Abstrakter Fehler!
Strings.SaveToFile(FilePath);
Strings.Free;
end;
In den beiden markierten Zeilen erhalte ich einen abstrakten Fehler. Allerdings kann ich dort kein Problem erkennen.
MfG