Skip to main content

Eu estou tentando criar um JSON com valores que foram preenchido pelo usuário. Até agora eu tenho isso, mas não está funcionando

procedure TOAuth2TesterFrm.Button2Click(Sender: TObject); var nome_evento: String; inicio: String; fim: String; objeto: TJSONObject; begin objeto.AddPair('nome',nome_evento); objeto.AddPair('data_inicio',inicio); objeto.AddPair('data_fim',fim); LogMem.Text:=TJSON.ObjectToJsonString(objeto);

procedure TOAuth2TesterFrm.Button2Click(Sender: TObject);
  var
    nome_evento: String;
    inicio: String;
    fim: String;
    objeto: TJSONObject;
begin
    objeto.AddPair('nome',nome_evento);
    objeto.AddPair('data_inicio',inicio);
    objeto.AddPair('data_fim',fim);
    LogMem.Text:=TJSON.ObjectToJsonString(objeto);

Eu estou tentando criar um JSON com valores que foram preenchido pelo usuário. Até agora eu tenho isso, mas não está funcionando

procedure TOAuth2TesterFrm.Button2Click(Sender: TObject); var nome_evento: String; inicio: String; fim: String; objeto: TJSONObject; begin objeto.AddPair('nome',nome_evento); objeto.AddPair('data_inicio',inicio); objeto.AddPair('data_fim',fim); LogMem.Text:=TJSON.ObjectToJsonString(objeto);

Eu estou tentando criar um JSON com valores que foram preenchido pelo usuário. Até agora eu tenho isso, mas não está funcionando

procedure TOAuth2TesterFrm.Button2Click(Sender: TObject);
  var
    nome_evento: String;
    inicio: String;
    fim: String;
    objeto: TJSONObject;
begin
    objeto.AddPair('nome',nome_evento);
    objeto.AddPair('data_inicio',inicio);
    objeto.AddPair('data_fim',fim);
    LogMem.Text:=TJSON.ObjectToJsonString(objeto);
Fonte Link

Como criar um Objeto JSON em Delphi

Eu estou tentando criar um JSON com valores que foram preenchido pelo usuário. Até agora eu tenho isso, mas não está funcionando

procedure TOAuth2TesterFrm.Button2Click(Sender: TObject); var nome_evento: String; inicio: String; fim: String; objeto: TJSONObject; begin objeto.AddPair('nome',nome_evento); objeto.AddPair('data_inicio',inicio); objeto.AddPair('data_fim',fim); LogMem.Text:=TJSON.ObjectToJsonString(objeto);