نمایش کاراکترهای فارسی در خواندن از json

[baran_2005]

با کد زیر مشکل حل شد !

const

  Text ='{"data":{"records":[{"stname":"نمايشگاه","StId":1},{"stname":"  فلکه پارک","StId":2},{"stname":"تقي آباد","StId":3},{"stname":"طلاب","StId":4}  ,{"stname":"نخريسي","StId":5}],"status":true}}';

var

  JSONObject, JSONObject2, currcond: TJSONObject;

  arrayjson: TJSONArray;

  i:integer;

begin

  JSONObject := TJSONObject.ParseJSONValue(Text) as TJSONObject;

  JSONObject2 := JSONObject.GetValue('data') as TJSONObject;

  arrayjson := JSONObject2.GetValue('records') as TJSONArray;

  for i :=0 to arrayjson.Count-1 do

  begin

    currcond := arrayjson.Items[i] as TJSONObject;

    showmessage(currcond.GetValue('stname').Value);

  end;