Json fragment (tech) - Historique des versions

Syfre le 22 janvier 2021 à 10:04

2021-01-22T10:04:37Z

Syfre : /* Opération sur un fragment */

2021-01-19T09:31:19Z

Opération sur un fragment

Syfre le 19 janvier 2021 à 08:36

2021-01-19T08:36:40Z

Syfre le 19 janvier 2021 à 08:30

2021-01-19T08:30:17Z

Syfre le 5 novembre 2020 à 10:04

2020-11-05T10:04:46Z

Syfre : /* Opération sur un fragment */

2020-09-18T16:19:04Z

Opération sur un fragment

Syfre : Page créée avec « NOTOC Un fragment JSon est un élément d'un document JSon qui peut être manipulé comme une variable. Exemple : //Procedure TestJson; var js... »

2020-09-18T15:36:24Z

Page créée avec « __NOTOC__ Un fragment JSon est un élément d'un document JSon qui peut être manipulé comme une variable. Exemple : <source lang="delphi"> //Procedure TestJson; var js... »

Nouvelle page

__NOTOC__
Un fragment JSon est un élément d'un document JSon qui peut être manipulé comme une variable.

Exemple :

<source lang="delphi">
//Procedure TestJson;
var json:TJSon; va,v1,v2:variant;
begin
json := TJson.Create(
'{"a":[{"e1":1,"e2":2,"e3":{"e31":"v31","e32":["e321","e322"]}}]}'
);
va := json.a[0];
v1 := json.a[0].e1;
v2 := va.e1;
if v1<>v2
then showMessage('failed')
else showMessage('Ok');
end;
</source>

{{tip|Déclarez les fragments comme des variants}}

===Opération sur un fragment===

'''AddStruct'''

<source lang="delphi">
var json1,json2:TJSon; vs,v1,v2:variant;
begin
json1 := TJson.Create('{}');
json1.AddStruct('b').c := 1;

v1 := json1.b.c;
if v1=1
then showMessage('ok')
else showMessage('failed');
end;
</source>

'''Clear (tableau)'''

<source lang="delphi">
//Procedure TestJson4;
var json:TJSon; va,v1:variant;
begin
json := TJson.Create('{}');
json.b[0].a[0].Values := '1';
va := json.b[0].a;
va.Clear(0);

if va.count=0
then showMessage('ok')
else showMessage('failed');
end;
</source>

'''Assign'''

<source lang="delphi">
//Procedure TestJSon8;
var json1,json2:TJSon; vb,v1:variant;
begin
json1 := TJson.Create('{}');
json1.a.b := 1;
json1.a.AddStruct('b','{c:1}');

vb := json1.a.b;
if not vb.Exists('c') then
begin
showMessage('failed');
Exit;
end;

v1 := vb.c;
if (v1<>1) then
begin
showMessage('failed');
Exit;
end;

// replace content of b
vb.Assign('{d:2}');

if vb.Exists('c') then
begin
showMessage('failed');
Exit;
end;

if not vb.Exists('d') then
begin
showMessage('failed');
Exit;
end;

v1 := vb.d;
if (v1=2)
then showMessage('ok')
else showMessage('failed');
end;
</source>

'''Merge'''

<source lang="delphi">
//Procedure TestJson9;
var json1,json2:TJSon; vs,v1,v2:variant;
begin
json1 := TJson.Create('{}');
json1.a.b.x := 1;
json1.a.b.Merge('{c:1}');

v1 := json1.a.b.c;
if v1=1
then showMessage('ok')
else showMessage('failed');
end;
</source>

<source lang="delphi">
//Procedure TestJson9;
var json1,json2:TJSon; vx,v1,v2:variant;
begin
json1 := TJson.Create('{}');
json1.a.b.c := 1;
v1 := json1.a.b;
if not v1.Exists('c') then
begin
showMessage('failed (1)');
Exit;
end;

json2 := TJson.Create('{}');
json2.a.b.d := 1;
v2 := json2.a.b;
if not v2.Exists('d') then
begin
showMessage('failed (2)');
Exit;
end;

v1.merge(v2);

if not v1.Exists('d') then
begin
showMessage('failed (3)');
Exit;
end;

vx := json1.a.b.d;
if vx=1
then showMessage('ok')
else showMessage('failed (2)');
end;
</source>

[[Category:Version901]]
[[Category:JSon]]

← Version précédente		Version du 22 janvier 2021 à 10:04
Ligne 233 :		Ligne 233 :

	[[Category:Version910]]		[[Category:Version910]]
−	[[Category:~~JSon~~]]	+	[[Category:Json]]

@@ Ligne 65 : / Ligne 65 : @@
 |j1.s.merge(j2.s)
 |j1=={s:{a:0,b:0}}
 |}

← Version précédente		Version du 5 novembre 2020 à 10:04
Ligne 177 :		Ligne 177 :


−	[[Category:~~Version901~~]]	+	[[Category:Version910]]
	[[Category:JSon]]		[[Category:JSon]]

@@ Ligne 38 : / Ligne 38 : @@
 ===Opération sur un fragment===
 '''AddStruct'''
@@ Ligne 91 : / Ligne 119 : @@
 '''Assign'''
 <source lang="delphi">

@@ Ligne 20 : / Ligne 20 : @@
 </source>
-{{tip|Déclarez les fragments comme des variants}}
+===Type de données===
 ===Opération sur un fragment===

@@ Ligne 36 : / Ligne 36 : @@
     then showMessage('ok')
     else showMessage('failed');
 end;
 </source>

Json fragment (tech) - Historique des versions

Syfre le 22 janvier 2021 à 10:04

Syfre : /* Opération sur un fragment */

Syfre le 19 janvier 2021 à 08:36

Syfre le 19 janvier 2021 à 08:30

Syfre le 5 novembre 2020 à 10:04

Syfre : /* Opération sur un fragment */

Syfre : Page créée avec « __NOTOC__ Un fragment JSon est un élément d'un document JSon qui peut être manipulé comme une variable. Exemple : //Procedure TestJson; var js... »

Syfre : Page créée avec « NOTOC Un fragment JSon est un élément d'un document JSon qui peut être manipulé comme une variable. Exemple : //Procedure TestJson; var js... »