Как перевести не обязательные параметры с С на Delphi?

Question

[memradar]

При переводе функций с С на Delphi столкнулся с интересным моментом, в заголовочном файле на С, есть вот такое объявление функции:

Вопрос, как правильно реализовать эту функцию на Delphi (мой вариант, только первых два параметра) ?

function Vix_GetProperties(handle: VixHandle;
                           firstPropertyID: VixPropertyID
                           ): VixError; cdecl; external 'vix.dll';

К сожалению, не нашел примеров, как переносить такие вещи '...' как параметр из С на Delphi...

Answer 1

[memradar]

function Vix_GetProperties(
  handle: VixHandle;
  firstPropertyID: VixPropertyID
): VixError; cdecl varargs; external 'vix.dll';

После cdecl добавляем varargs. Это позволяет в удаленную библиотеку , указать компилятору что можем передавать аргументы списком.

Всем спасибо большое!

Comments

[zed]

https://ru.stackoverflow.com/questions/976828

Answer 2

[Rsa97]

Только передачей параметров в массиве.

procedure TForm1.Display(X: array of const);
var
  I: Integer;
begin
  for I := Low(X) to High(X) do
  ...
end;

Display([42, 1.234, 'A', 'Васек Трубачев', Form1, TButton]);

Answer 3

[profesor08]

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

procedure DoSomething(one : string; two: integer = 0; three: integer = 0);

Answer 4

[Константин Цветков]

Vix_GetProperties работает аналогично WriteLn с списком.

Predefined constants, types, procedures, and functions (such as True, Integer, or Writeln) do not have actual declarations.Instead they are built into the compiler and are treated as if they were declared at the beginning of the System unit.