TAuditTrail - Exemples

TAuditTrail = class (TObject)Interface de TAuditTrailExemples de TAuditTrail

Non renseigné

Uses Qubes.AuditTrail;

const cFileName = 'd:\LastMonth.csv';
var at := TAuditTrail.Create(IncMonth(Now,-1), Now, TAuditTrailNature.Batch);
SaveStringToFile(cFileName, 'Date;UserLogin;ActualUserLogin;Reference;Label;Description'+#13#10);
for var i:=0 to at.Count-1 do
   AppendStringToFile(  cFileName,
                        DateTimeToUnixTime(at.Date[i]).ToString+';'+
                        at.UserLogin[i]+';'+
                        at.ActualUserLogin[i]+';'+
                        at.Reference[i]+';'+
                        at.Label[i]+';'+
                        at.Description[i]+#13#10);