Как получить временную метку входящего сообщения xmpp?

Сначала я был скептически относился к помощникам класса. Но затем я прочитал интересную запись в блоге , и теперь я убежден, что они действительно полезны.

Например, если вы хотите получить дополнительную функциональность для существующего класса экземпляра и для некоторых причина, по которой вы не можете изменить существующий источник. Вы можете создать помощник класса, чтобы добавить эту функциональность.

Пример:

type
  TStringsHelper = class helper for TStrings
  public
    function IsEmpty: Boolean;
  end;

function TStringsHelper.IsEmpty: Boolean;
begin
  Result := Count = 0;
end;

Каждый раз мы теперь используем экземпляр (подкласс) TStrings и TStringsHelper находится в пределах области действия. У нас есть доступ к методу IsEmpty.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Memo1.Lines.IsEmpty then
    Button1.Caption := 'Empty'
  else
    Button1.Caption := 'Filled';
end;

Примечания:

• Помощники класса могут быть сохранены в отдельном блоке, поэтому вы можете добавить своих собственных классных помощников классов , Обязательно дайте этим блокам легко запоминающееся имя, например ClassesHelpers, для помощников для модуля Classes.
• Также есть помощники записи.
• Если в области есть несколько помощников классов, ожидайте некоторые проблемы, можно использовать только один помощник.