I thought this might be handy for others, so I'm posting it here. It takes a
TStringList that has name/value pairs, and makes a JSON string from them. And then
will restore them back. Based on the EWB code, all errors mine. If anyone improves
on it, let me know!

(No need to comment on my odd "hungarian" notation. 8-)

/Matthew Jones/
function StringListToJSON(xList : TStrings) : String;
var                  
   szName : String;
   szValue : String;
   bAddComma : Boolean;
   nLoop : Integer;
begin        
   bAddComma := false;
   Result:='{ ';
   for nLoop := 0 to xList.Count - 1 do
   begin           
       szName := Trim(xList.Names[nLoop]);
       if szName <> '' then
       begin
           szValue := xList.ValueFromIndex[nLoop];
           if bAddComma then
               Result := Result + ', ';
           Result := Result+'"' + szName + '": "' + EscapeStr(szValue) + '"';
       end;           
       bAddComma := true;
   end;
   Result:=Result+' }';
end;


procedure JSONToStringList(szDataString : String; xList : TStrings);
var
   szName : String;
   szValue : String;
   bAddComma : Boolean;
   nLoop : Integer;
   xParser: TParser;
begin        
   bAddComma := false;

   xList.Clear;
   xParser := TParser.Create;
   try    
       xParser.Initialize(szDataString, false);
       xParser.ErrorIfNotSkipToken('{');
       while true do
       begin
           xParser.ErrorIfNotToken(tkString);
           szName := xParser.TokenString;
           xParser.NextToken;
           xParser.ErrorIfNotSkipToken(':');
           xParser.ErrorIfNotToken(tkString);
           szName := xParser.TokenString;
           xParser.NextToken;
           xList.Values[szName] := szValue;
           if (not xParser.SkipToken(',')) then
              Break;
       end;
       xParser.ErrorIfNotSkipToken('}');
   finally
       xParser.Free;
   end;
end;

This appears not to work! At least in reading. I will be fixing it momentarily.
This is better - assign the value instead of the name twice!

procedure JSONToStringList(szDataString : String; xList : TStrings);
var
   szName : String;
   szValue : String;
   bAddComma : Boolean;
   nLoop : Integer;
   xParser: TParser;
begin        
   bAddComma := false;

   xList.Clear;
   xParser := TParser.Create;
   try    
       xParser.Initialize(szDataString, false);
       xParser.ErrorIfNotSkipToken('{');
       while true do
       begin
           xParser.ErrorIfNotToken(tkString);
           szName := xParser.TokenString;
           xParser.NextToken;
           xParser.ErrorIfNotSkipToken(':');
           xParser.ErrorIfNotToken(tkString);
           szValue := xParser.TokenString;
           xParser.NextToken;
           xList.Values[szName] := szValue;
           if (not xParser.SkipToken(',')) then
              Break;
       end;
       xParser.ErrorIfNotSkipToken('}');
   finally
       xParser.Free;
   end;
end;


/Matthew Jones/

Matthew,

<< This appears not to work! At least in reading. I will be fixing it
momentarily. This is better - assign the value instead of the name twice! >>

Thanks, nice work.

Tim Young
Elevate Software
www.elevatesoft.com

> procedure JSONToStringList(szDataString : String; xList : TStrings);

If anyone gets to using these, let me know. I've enhanced this to make the lists
named, so you can store multiple lists in the single JSON. Well, at the moment my
Delphi server can generate them, and the EWB code just picks the one it wants, but
by the time anyone asks I may have it working both ways. I am moving to the simple
list being in an array too, rather than a list of pairs.

/Matthew Jones/

Hi Matthew,
 I use your code, works well.

Thank you

regards


Craig Symons