TLogItem

type TLogItem = record

public

  No: Integer;

  Priority: ShortInt;

  CategoryID: Byte;

  DateTime: TDateTime;

  Text: string;

  Context: string;

  Active: Boolean;

  Deleted: Boolean;

  Tag: TLogTag;

  function ToString;

  procedure Enable;

  procedure Disable;

  procedure Delete;

  procedure Undelete;

  function IsError;

  function IsInfo;

  function IsHint;

  function IsWarning;

end;