Declaration
function Dump(dumpType: TIEDictionaryParserLang): WideString;
Description
Returns a JSON-like or XML representation of the dictionary.
Not all dictionary contents can be dumped to XML and correctly parsed back.
// Dump dictionary content as XML
var
dict: TIEDictionary;
begin
dict := TIEDictionary.Create();
dict.Insert('doublekey', 10.1);
dict.Insert('integerkey', 100);
dict.Insert('stringkey', 'hello');
dict.Insert('bool_true', true);
dict.Insert('bool_false', false);
dict.Insert('dict', TIEDictionary.Create());
dict.GetDictionary('dict').Insert('one', 1);
dict.GetDictionary('dict').Insert('two', 'two');
dict.Insert('list', TObjectList.Create());
dict.GetList('list').Add( TIEDictionaryValueWideString.Create('mike') );
dict.GetList('list').Add( TIEDictionaryValueWideString.Create('robert') );
dict.GetList('list').Add( TIEDictionaryValueWideString.Create('john') );
dict.GetList('list').Add( TIEDictionaryValueInteger.Create(2013) );
memo1.Text := dict.Dump(ieplXML);
dict.free;
end;
// Dump structure
dict := 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(ieplStructure);
dict.free;
// 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;
See Also
◼Parse