TStreamHelper = class helper for TStream
  public
    procedure ReadCheck(var ABuffer; ACount: Integer);
    procedure WriteCheck(const ABuffer; ACount: Integer);
  end;

  TCustomMemoryStreamHelper = class helper(TStreamHelper) for TCustomMemoryStream
  public
    procedure DeleteFirst(ASize: Integer);
  end;

type
  MyHelper = record helper(TStringHelper) for String
    function TestIt : String;
  end;

type
  TMyString = type String;

  MyStringHelper = record helper for TMyString
    function TestIt: String;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TMyString('Hello World!'.ToUpper).TestIt);
end;

{ MyHelper }

function MyStringHelper.TestIt: String;
begin
  Result := ReverseString(Self)
end;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы