Обобщенные типы в Delphi для сохранения оригинального кода из C

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

Перевод кода с C на Delphi и использование обобщенных типов

Перевод программного кода с одного языка программирования на другой может быть непростой задачей, особенно если исходный код написан на C, а целевая платформа - Delphi, язык, использующийся для разработки приложений с помощью среды RAD (Rapid Application Development) от компании Embarcadero. Несмотря на различия в синтаксисе и философии, многие концепции и паттерны кодирования пересекаются, что позволяет сохранять оригинальность кода в максимально возможной степени.

Вопрос, поставленный разработчиком, заключается в возможности передачи объявленного типа (в данном случае, записи) в функцию. В C это достигается с помощью макросов, но в Delphi такой возможности нет. Однако, начиная с Delphi 2009, в язык был введен механизм обобщенных типов (generics), который позволяет использовать параметры типа в функциях и классах, сохраняя при этом гибкость и мощь оригинального кода на C.

Пример использования обобщенных типов в Delphi:

type
  PMemoryArena = ^TMemoryArena;
  TMemoryArena = record
    Base: Pointer;
    Used: NativeInt;
    Size: NativeInt;
  end;

  TMemoryIndex = NativeInt;

function PushSize_(Arena: PMemoryArena; Size: TMemoryIndex): Pointer;
begin
  Assert((Arena^.Used + Size) <= Arena^.Size);
  Result := Arena^.Base + Arena^.Used;
  Arena^.Used := Arena^.Used + Size;
end;

function PushStruct<T>(Arena: PMemoryArena): Pointer;
begin
  Result := PushSize_(Arena, SizeOf(T));
end;

function PushArray<T>(Arena: PMemoryArena; Count: UInt32): Pointer;
begin
  Result := PushSize_(Arena, Count * SizeOf(T));
end;

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

Важно учитывать:

• Обобщенные типы в Delphi работают по-другому, чем макросы в C. В C макрос заменяется на соответствующий код во время предкомпиляции, в то время как обобщенные типы в Delphi используют информацию о типе во время выполнения, но компиляция происходит на этапе компиляции исходного кода.
• Обобщенные типы должны быть объявлены в контексте класса или модуля, и не могут использоваться вне этих структур.
• При использовании обобщенных типов в функциях возврата указателей, типы должны быть определены как ^T для обозначения указателя на тип T.

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

Если использование обобщенных типов кажется излишним, можно определить функции для каждого типа данных отдельно:

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    Field1: Integer;
    Field2: Double;
  end;

function PushMyRecord(Arena: PMemoryArena): PMyRecord;
begin
  Result := PMyRecord(PushSize_(Arena, SizeOf(TMyRecord)));
end;

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

Вывод:

Использование обобщенных типов в Delphi позволяет сохранять оригинальный стиль и паттерны кодирования, характерные для C, и при этом использовать возможности современного языка программирования для разработки приложений с высокой производительностью и удобством использования.

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

Перевод кода с C на Delphi и использование обобщенных типов позволяет сохранить гибкость и мощь исходного кода, при этом адаптируя его под возможности и синтаксис языка Delphi.

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

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

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