TDocument.ClassifFieldIndexes
| TScriptDoc = class (TDocument) | Interface de TScriptDoc | Exemples de TScriptDoc |
héritée de TDocument.ClassifFieldIndexes
| TDocument = class (TObject) | Interface de TDocument | Exemples de TDocument |
Qubes 6.8 Champs de classification du document
Syntaxe
property ClassifFieldIndexes: array of integer read GetClassifFieldIndexes write SetClassifFieldIndexes
Remarques
Retourne la liste des index des valeurs des champs de classification du document.
Exemples
uses SysUtils, QuBESDocuments;
var doc := TDocument.ConnectByRUDAndVersion('PRSI316', 0, 1);
var classifFieldsNames := TStrings.Create;
classifFieldsNames.CommaText := DocClassifFieldsNamesAsCommaText;
var classif := JSON.NewObject;
for var i:=0 to classifFieldsNames.count-1 do begin
var classifFieldValues := TStrings.Create;
classifFieldValues.CommaText := DocClassifFieldAlternativesAsCommaText(classifFieldsNames[i]);
if doc.ClassifFieldIndexes[i]=-1 then
classif[classifFieldsNames[i]] := _('-- Non Défini --')
else
classif[classifFieldsNames[i]] := classifFieldValues[doc.ClassifFieldIndexes[i]];
end;
var doc := TDocument.ConnectByRUDAndVersion('PRSI316', 0, 1);
var classifFieldsNames := TStrings.Create;
classifFieldsNames.CommaText := DocClassifFieldsNamesAsCommaText;
var classif := JSON.NewObject;
for var i:=0 to classifFieldsNames.count-1 do begin
var classifFieldValues := TStrings.Create;
classifFieldValues.CommaText := DocClassifFieldAlternativesAsCommaText(classifFieldsNames[i]);
if doc.ClassifFieldIndexes[i]=-1 then
classif[classifFieldsNames[i]] := _('-- Non Défini --')
else
classif[classifFieldsNames[i]] := classifFieldValues[doc.ClassifFieldIndexes[i]];
end;