Einzelnen Beitrag anzeigen

ByTheTime

Registriert seit: 24. Sep 2011
Ort: Frankfurt
297 Beiträge
 
Delphi XE2 Architect
 
#1

JSON: Abstrakter Fehler

  Alt 20. Okt 2014, 18:23
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
Lukas
  Mit Zitat antworten Zitat