생성결과값
  생성결과값
     {
       "method":"Customer_Insert",
       "version":"1.0",
       "data":[
                 "{"Name1":"홍길동","Name2":"임꺽정","Name3":"김좌진" }
                ]
     }



/////////////////////////////////////////////////////////////////
소스입니다.
소스1과 소스2의 결과 값을 나타나고 싶어요 그런데 결과는 위 결과처럼 나타나지 않아요
고수님들 자료좀 검토부탁합니다.
델파이 버젼 7입니다.

부탁드립니다.

아래는 소스입니다.





/////////////////////////////////////////////////
program sample1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  uLkJSON in 'uLkJSON.pas';

var
  js: TlkJSONobject;
  ws: TlkJSONstring;
  s: String;
  ss: String;
  i: Integer;
  mJson, sJson: TlkJSONObject;

  aJson1: TlkJSONlist;
  aJson2: TlkJSONlist;
begin
  js := TlkJSONobject.Create;
  js.Add('method','Customer_List');
  s := TlkJSON.GenerateText(js);
  js.Add('version','1.0');

  try
    mJson := TlkJSONObject.create;
    aJson1:= TlkJSONList.create;
    aJson2:= TlkJSONList.create;
    //1필드는 있는데 값이 없는자료
    ss:='name1';
    aJson1.add('name1');
    aJson1.add('name2');
    aJson1.add('name3');


    aJson2.add('name11');
    aJson2.add('name12');
    aJson2.add('name13');
    js.add('data', aJson1);
    js.add('data', aJson2);

    //
    //2필드와 값이 있는데 구성이 틀립니다.
    {
    ss:='name1';
    js.add('name1','홍길동' );
    js.add('name2','임꺽정' );
    js.add('name3','김좌진' );
    {
    js.add(ss,'name1');
    js.add(ss,'name2');
    js.add(ss,'name3');
    }
  finally
    mJson.Free;
  end;

  i := 0;
  s := GenerateReadableText(js,i);
  writeln(s);

  js.Free;

  readln;
  js.Free;
end.