TAuditTrail.Label
| TAuditTrail = class (TObject) | Interface de TAuditTrail | Exemples de TAuditTrail |
Qubes 10.0 Libellé de l'entrée dans l'audit trail
Syntaxe
property Label[i: Integer]: String read GetLabel
i: index du libellé dans l'objet
Exemples
Uses Qubes.AuditTrail;
var at := TAuditTrail.Create(IncMonth(Now,-1), Now, TAuditTrailNature.Batch);
for var i:=0 to at.Count-1 do
PrintLn( DateTimeToUnixTime(at.Date[i]).ToString+';'+at.Reference[i]+';'+at.Label[i]);
var at := TAuditTrail.Create(IncMonth(Now,-1), Now, TAuditTrailNature.Batch);
for var i:=0 to at.Count-1 do
PrintLn( DateTimeToUnixTime(at.Date[i]).ToString+';'+at.Reference[i]+';'+at.Label[i]);