Delphi ObjectToJsonString

MyInfo.pas

unit MyInfo;

interface

type
  TMyInfo = class
  private
    FName: string;
    FAge: integer;
  public
    property Name: string read FName Write FName;
    property Age: integer read FAge Write FAge;
  end;


implementation

end.

Sample.DelphiObjectToJsonString.pas

// sample code
// Delphi XE5

uses
  REST.JSON;
  
procedure TfmMainForm.btnSaveClick(Sender: TObject);
var
  info: TMyInfo;
  sl: TStringList;
  jsonString: string;
begin
  info := TMyInfo.Create;
  try
    info.Name := edtName.Text;
    info.Age := StrToInt(edtAge.Text);
    jsonString := TJson.ObjectToJsonString(info);
  finally
    FreeAndNil(info);
  end;

  memJsonString.Text := jsonString;

  sl := TStringList.Create;
  try
    sl.Add(jsonString);
    sl.SaveToFile(edtFileName.Text);
  finally
    FreeAndNil(sl);
  end;

end;

procedure TfmMainForm.btnLoadClick(Sender: TObject);
var
  info: TMyInfo;
  sl: TStringList;
  jsonString: string;
begin
  // Load File
  sl := TStringList.Create;
  try
    sl.LoadFromFile(edtFileName.Text);
    jsonString := sl.Text;
  finally
    FreeAndNil(sl);
  end;

  memJsonString.Text := jsonString;

  try
    info := TJson.JsonToObject<TMyInfo>(jsonString);
    edtName.Text := info.Name;
    edtAge.Text := IntToStr(info.Age);
  finally
    FreeAndNil(info);
  end;


end;

Just Sample Code.