Простенькая функция динамической проверки на Save

[Gorn]

Code: Select all

Function AuthorMessageBetweenTimes(Str : String; TimeBegin,TimeEnd : TDateTime; AuthorID : Cardinal) : Integer;
var tmp : Integer;
Begin
    repeat
       tmp := InJournalBetweenTimes(Str, TimeBegin, TimeEnd);
       if ( (tmp > -1) and (AuthorID <> LineID) ) then
          SetJournalLine(tmp, '')
       else
          break;
    until false;
    Result := tmp;
End;

Function SystemMessageBetweenTimes(Str : String; TimeBegin,TimeEnd : TDateTime) : Integer;
var tmp : Integer;
Begin
    repeat
       tmp := InJournalBetweenTimes(Str, TimeBegin, TimeEnd);
       if ( (tmp > -1) and (LineName <> 'System') ) then
          SetJournalLine(tmp, '')
       else
          break;
    until false;
    Result := tmp;
End;

Проверить возможности не было, так что не бейте, если вдруг не заработает...