Разработка пользовательских типов в Delphi: повышение читаемости и изоляция от ANSIString

Delphi , Синтаксис , Типы и Переменные

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

Проблема

Попытка создать пользовательский тип, основанный на AnsiString, может вызвать путаницу, так как ожидается, что такой тип будет изолирован от стандартных строк. Однако, в коде:

type
  TKMLocaleCode = type AnsiString;
...
procedure A;
var
  A,B: TKMLocaleCode;
  C: AnsiString;
begin
  A := 'eng'; // Ожидается ошибка здесь
  A := C; // Ожидается ошибка здесь тоже
  B := TKMLocaleCode('eng'); // Ожидается отсутствие ошибки здесь
end;

ожидается, что не будет возможности присваивать значения напрямую, но это не так, и такая декларация не достигает цели изоляции.

Решение

В подтвержденном ответе указывается, что использование type для создания пользовательского типа на основе AnsiString не достигнет цели изоляции, поскольку такие типы все еще будут совместимы между собой. Вместо этого, рекомендуется использовать запись (record), которая не совместима с другими типами даже при идентичном структурном составе.

type
  TKMLocaleCode = record
    strict private
      FValue: AnsiString;
  public
    class operator Explicit(const Value: string): TKMLocaleCode;
  end;

В этом случае, для создания экземпляра пользовательского типа, можно использовать явное приведение типов (explicit operator), но не присваивание напрямую, что позволяет достичь изоляции.

class operator TKMLocaleCode.Explicit(const Value: AnsiString): TKMLocaleCode;
begin
  Result.FValue := Value;
end;

Также, для сравнения типов можно перегрузить операторы сравнения, предоставив методы Equal и NotEqual в декларации записи.

Альтернативный подход

Альтернативный ответ предлагает другой способ создания пользовательского типа:

type
  TKMLocaleCode = record
    FValue: AnsiString;
    constructor Create(const AValue: string);
    property Value: string read FValue;
  end;

constructor TKMLocaleCode.Create(const AValue: string);
begin
  inherited Create;
  FValue := AValue;
end;

Здесь используется конструктор для создания экземпляра типа и свойство для доступа к значению, что также обеспечивает изоляцию от AnsiString.

Выводы

Создание пользовательских типов в Delphi — полезная практика, которая может значительно повысить читаемость и безопасность кода. Использование записей с явным приведением типов и перегрузкой операторов позволяет изолировать данные и предотвратить нежелательные операции присваивания.

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

Создано по материалам из источника по ссылке.

В контексте разработки на Delphi рассматривается вопрос создания пользовательских типов данных для повышения читаемости кода и изоляции от стандартного типа `AnsiString`, с примерами кода и обсуждением методов изоляции.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Типы и Переменные ::