Class to JSON example

ClassToJSON.pas

unit ClassToJSON;

interface

uses
  REST.JSON;

type
  TLogin = class
  private
    FUserCode, FPassword: string;
  public
    property UserCode: string read FUserCode write FUserCode;
    property Password: string read FPassword write FPassword;

    class function ToJSON(U, P: string): string;
  end;

implementation

{ TLogin }

class function TLogin.ToJSON(U, P: string): string;
var
  aLogin: TLogin;
begin
  aLogin := TLogin.Create;
  try
    aLogin.UserCode := U;
    aLogin.Password := P;
    Result := TJson.ObjectToJsonString(aLogin);
  finally
    aLogin.Free;
  end;
end;

end.