Declaration
function Parse(text: WideString): boolean;
Description
Parses the JSON-like string and populates the dictionary.
This method does not remove existing items.
Parameter | Description |
text | JSON or XML style text |
See Also
◼Dumpdict := TIEDictionary.Create();
dict.Parse('{"string" : "string content", "myinteger": 1234, "mydouble": 123.456, "a_bool_true" : true, "a_bool_false" : false, "subdict" : {"name": "john", "surname" : "mad"}, "array": [1,2,3,4,"hello", {}, {"alfa":"beta"}, [9,10]] }');
memo1.Text := dict.Dump(ieplXML);
dict.free;
// Dump the structure of the dictionary
var
ss : TStringList;
dict: TIEDictionary;
begin
ss := TStringList.Create;
dict := TIEDictionary.Create();
ss.LoadFromFile('d:\XML_TEST.xml');
dict.parse( ss.Text );
// Dump structure
memo1.Text := dict.Dump(ieplStructure);
dict.free;
ss.Free;
end;
// Parse all DictionaryEntries from XML file
// Download file from: www.imageen.com/files/UnitTestFiles/XML_TEST.xml
{
SAMPLE:
<?xml version="1.0" encoding="UTF-8"?>
<Proofreader>
<Rules Language="EN">
<DictionaryEntries>
<Entry>absolute</Entry>
<Entry>add</Entry>
<Entry>ancestor</Entry>
<Entry>anchor</Entry>
<Entry>begin</Entry>
...
OUTPUT:
absolute
add
ancestor
anchor
begin
...
}
var
ss : TStringList;
xmlDict: TIEDictionary; // Dict to parse source XML
navDict: TIEDictionary; // Dict to navigate XML structure
list: TObjectList;
i: integer;
begin
ss := TStringList.Create;
xmlDict := TIEDictionary.Create();
ss.LoadFromFile('D:\XML_TEST.xml');
xmlDict.parse( ss.Text );
// Output all entries of Proofreader->Rules->DictionaryEntries into "memo1"
navDict := xmlDict.GetDictionary('Proofreader', false);
navDict := navDict.GetDictionary('#content', false);
navDict := TIEDictionary(navDict.GetList('Rules', false)[0]);
navDict := navDict.GetDictionary('#content', false);
navDict := navDict.GetDictionary('DictionaryEntries', false);
navDict := navDict.GetDictionary('#content', false);
list := navDict.GetList('Entry', false);
for i := 0 to list.Count - 1 do
begin
navDict := TIEDictionary(list[i]).GetDictionary('#content', false);
memo1.lines.add( navDict.GetString('#text', false) );
end;
xmlDict.free;
ss.Free;
end;