Jump to content

Lie Ming

Members
  • Content Count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. Lie Ming

    New to Json

    Thank you Remy... SOLVED...
  2. Lie Ming

    New to Json

    procedure TCLOSINGForm.SpeedButton10Click(Sender: TObject); var JsonValue: TJSONValue; JsonObject, JsonData: TJSONObject; JsonConditions: TJSONArray; Branch, st: string; begin st :='iWN5p2qfRFeGKXn1m3iGnDW0Vkl2: {"PROFILE":{"BIRTHDAY":"8\/20\/19","FULL NAME":"","GENDER":"MALE","NATIONALITY":"INDONESIA","NICK NAME":"","OFFICE":"CLOSING SYSTEM","PHONE NO":"","REFERAL UID":"","WEDDING":"8\/20\/19"}}'; JsonValue := TJSONObject.ParseJSONValue(st); if JsonValue <> nil then try JsonObject := JsonValue as TJSONObject; JsonData := JsonObject.GetValue('iWN5p2qfRFeGKXn1m3iGnDW0Vkl2') as TJSONObject; JsonConditions := JsonData.GetValue('PROFILE') as TJSONArray; JsonObject := JsonConditions.Items[0] as TJSONObject; Branch := JsonObject.GetValue('BIRTHDAY').Value; mem.Lines.add('Parsed BIRTHDAY '+branch); JsonObject := JsonConditions.Items[0] as TJSONObject; Branch := JsonObject.GetValue('FULL NAME').Value; mem.Lines.add('Parsed FULL NAME '+branch); finally JsonValue.Free; end; end; but it won't work...please need help/..
  3. Lie Ming

    FB4D – The OpenSource Library for Firebase

    thank you for the open source, thats helpfull. can you help me more that i need to know how many files in firebase storage in folder/ path and that lists too. thank you any kind for help.
×