Topic: How to Sort Order by Name value in JSonArray and add to Memo1
How to Sort Order by Name value in JSonArray and add to Memo1
Example
[
{
"Name": "Cat",
"Color": "White"
},
{
"Name": "Ant",
"Color": "Red"
},
{
"Name": "Zebar",
"Color": "Black"
}
]
I will To result
Ant,Red
Cat,White
Zebar,Black
------------------------------------------------------------
Try Easy Code But Result Not Order By Name
Cat,White
Ant,Red
Zebar,Black
How To Edit Code ???
procedure MyProcedure();
var
JsonArray : TJsonArray ;
i : Integer ;
JS_temp : TJsonObject ;
js_name : TJsonString ;
js_color : TJsonString ;
begin
JsonArray := TJsonArray.ParseJSONValue(
'[
{
"Name": "Cat",
"Color": "White"
},
{
"Name": "Ant",
"Color": "Red"
},
{
"Name": "Zebar",
"Color": "Black"
}
]'
);
for i := 0 to JsonArray.Size -1 do
begin
js_temp := TJSONObject (TJSONObject(JsonArray.Get(i))) ;
js_name := TJSONString(JS_temp.GetPairByName('balance').JsonValue);
js_color := TJSONString(JS_temp.GetPairByName('color').JsonValue);
Form1.Memo1.Lines.add(js_name.Value+','+js_color.Value)
end;
end;
Easy For Beginner Student For Me