在Delphi中,我們可以使用TJSONObject來表示JSON格式的數據。而將JSON轉換成字符串,可以使用與之對應的函數TJSONObject.ToString,非常方便。
var
Json: TJSONObject;
JsonStr: string;
begin
Json := TJSONObject.Create;
Json.AddPair('name', '張三');
Json.AddPair('age', TJSONNumber.Create(20));
JsonStr := Json.ToString;
Memo1.Lines.Add(JsonStr);
Json.Free;
end;
在上述代碼中,我們先創建了一個TJSONObject對象,然后向其中添加了名字和年齡兩個屬性,并將其轉換成字符串類型。轉換完成后,我們將其添加到Memo控件中,方便我們進行查看。最后記得釋放TJSONObject對象。
同時,如果我們想格式化輸出JSON字符串,則可以使用函數TJSONObject.Format,如下所示:
JsonStr := Json.Format(2);
Memo1.Lines.Add(JsonStr);
這里的數字2表示縮進的空格數,可以根據情況自行調整。
總結來說,Delphi中將JSON轉換成字符串非常方便,只需要使用TJSONObject.ToString或者TJSONObject.Format函數即可完成,同時也可以自定義格式化輸出的樣式。在JSON處理中,這是一個非常常用的操作,掌握之后可以輕松處理各種JSON數據。
上一篇vue萬條
下一篇svg 選座 vue