uLkJSON con Delphi XE

[StartKill]

Saludos al foro
A los años que me acerco al Club del conocimiento.

Tengo un aplicativo hecho en Delphi XE y necesito implementar una rutina en JSON, para ello estoy utilizando la unit uLkJSON.

Mas logro llevar al CDS con las tildes

Código Delphi [-]
//En un memo tengo estas líneas:

[
  {
    "id": 1,
   "nombre": "Pepíto Conejo",
    "edad": 25,
    "carnet": 1
  },
  {
    "id": 2,
    "nombre": "Ana Barbéro",
    "edad": 90,
    "carnet": 0
  }
]

procedure TForm24.Button1Click(Sender: TObject);
var
   sJSON: string;
   jl: TlkJSONlist;
   ja: TlkJSONobject;
   I: Integer;
begin
   ClientDataSet1.Open;
   ClientDataSet1.EmptyDataSet;
   sJSON := Memo1.Lines.Text;

   jl := TlkJSON.ParseText(sJSON) as TlkJSONlist;
   for I := 0 to jl.Count - 1 do
   begin
      ja := jl.child[i] as TlkJSONobject;
      ClientDataSet1.Insert;
      ClientDataSet1id.AsString := ja.Field['id'].Value;
      ClientDataSet1nombre.AsString := ja.getString('nombre');
       ClientDataSet1edad.AsInteger := ja.Field['edad'].Value;
      ClientDataSet1carnet.AsInteger := ja.Field['carnet'].Value;
      ClientDataSet1.Post;
   end;
end;

A la espera de su ayuda

Your friend

StartKill
Lima-Perú

[Casimiro Noteví]

¿Y qué problema tienes?

[StartKill]

Hola Foro, mi mala redacción hace que el foro ignore mi pregunta mal hecha

Tengo un aplicativo hecho en Delphi XE y necesito implementar una rutina en JSON, para ello estoy utilizando la unit uLkJSON.

Mas "NO" logro llevar al CDS con las tildes

A la espera de su ayuda

Your friend

StartKill
Lima-Perú

[Casimiro Noteví]

Prueba algo similar a:

Código Delphi [-]
valor := AnsiToUtf8( valor );

[StartKill]

Empezado por Casimiro Notevi

Prueba algo similar a:

Código Delphi [-]
valor := AntiToUtf8( valor );

Gracias por responder, pero no tengo los resultados esperado

Tildes fallan uLkJSON con Delphi XE

Saludos

Sartkill

[Casimiro Noteví]

¿Pero el "json" que lees está en utf8?

[StartKill]

Empezado por Casimiro Notevi

¿Pero el "json" que lees está en utf8?

El JSON que utilizo es un copy/paste dentro de un memoedit

[
{
"id": 1,
"nombre": "Pepíto Conejo",
"edad": 25,
"carnet": 1
},
{
"id": 2,
"nombre": "Ana Barbéro",
"edad": 90,
"carnet": 0
}
]