#9 Incorerct name detection, deletion or addition , with code e

[SergeyNikitin]

To addition to ticket below, I create a test code:

var
idx :Integer;
JsBase :TlkJSONobject; //TlkJSONbase;
begin
JsBase := TlkJSONstreamed.LoadFromFile('c:\start.json') as TlkJSONobject; //see attachments

idx := JsBase.IndexOfName('LASTUPDATE');
JsBase.Delete(idx);
JsBase.Add('LASTUPDATE', 0);

idx := JsBase.IndexOfName('CHECKDATE');
JsBase.Delete(idx);
JsBase.Add('CHECKDATE', 0);

//here state is:
// JsBase.NameOf[0] = 'LASTUPDATE'
// TlkJSON.GenerateText(JsBase.Child[0]) = '"LASTUPDATE":0'
// but
// JsBase.IndexOfName('TTODGAgent') also == 0 !!!
// TlkJSON.GenerateText(JsBase.FieldByIndex[0]) == '{"HOST":"127.0.0.1","PORT":8082,"LOGIN":"admin2..... i.e. text of 'TTODGAgent'
//for example

idx := JsBase.IndexOfName('TTODGAgent');
if idx>=0 then begin;
JsBase.Delete(idx);
FreeAndNil(JsBase);
end;

//here no 'TTODGAgent' but 'LASTUPDATE' will be deleted!!!
//see screenshot in previous ticket
end;

[SergeyNikitin]

[SergeyNikitin]

Bu is inside delete.

Try this:

JsBase := TlkJSONstreamed.LoadFromFile('c:\start.json') as TlkJSONobject;

idx := JsBase.IndexOfName('CHECKDATE');
JsBase.Delete(idx);

//now check here, for example:
//JsBase.IndexOfName('TTODGAgent'); returns 1 (really==0)
//JsBase.IndexOfName('LASTUPDATE') returns 0 (really==1);

[SergeyNikitin]

once more example:

JsBase := TlkJSON.ParseText('{"CHECKDATE":0,"LASTUPDATE":0,"TTODGAgent":{"HOST":"127.0.0.1"}}') as TlkJSONobject;

idx := JsBase.IndexOfName('CHECKDATE');
JsBase.Delete(idx);

idx := JsBase.IndexOfName('TTODGAgent');
JsBase.Delete(idx);

strText := TlkJSON.GenerateText(JsBase);

now strText is equal to '{"TTODGAgent":{"HOST":"127.0.0.1"}}'
!!!