Tous les téléchargements de novembre94

Dérivé d'un exemple du manuel de référence Freepascal, voici une procédure d'analyze d'un objet Lazarus à des fins de debug:

Exemple d'usage:

analyzeObject([items], 'items');

items (TJSONObject) = { variable0 : "[wan=adsl]", start0 : 1, stop0 : 10 }

analyzeObject([lastOptions], 'lastOptions');

lastOptions (TStringList) =
[ 0]: 3
[ 1]: "[wan=adsl]"