передача параметра в функцию : array of string

[sunjob]

добрый день

изучаю/тестирую/пишу обертку для RunCommandIndir()

Код: Выделить всё

function RunCommandIndir(
  const curdir            : string;
  const exename           : string;
  const commands          : array of string; <- !!! this param
  out   outputstring      : string ;
  out   exitstatus        : integer;
        Options           : TProcessOptions = []):integer;


как передать параметр commands в функцию-обертку? (параметр _arg)

Код: Выделить всё

function run_cmd(const _cmd: string; const _arg: array of string; const _dir: string):integer;
...


исходные

Код: Выделить всё

- fpc-3.0.4
- Linux


[Дож]

Код: Выделить всё

RunCommandIndir('', _cmd, _arg, ...


[sunjob]

в таком случае - несоответствие типа... (иначе-бы и вопроса не было :о)

с "простым" типом все нормально, с array of string не прокатывает...
точне далее, на операторе присвоения - ошибка!

я использую структуру для работы с RunCommandIndir... все остальные поля заполняются нормально, вот с массивом строк проблема... в инете пишут, что надо специльно определять тип и использовать его, для определения типа параметра... не понятно, почему в лоб нельзя? или я то-то опять не так все понимаю? :о)

Код: Выделить всё

type
RunCmdStruct = record
dir : string          ; // in  : directory
cmd : string          ; // in  : cmd to exec
arg : array of string ; // in  : аргументы ком.строки для cmd
str : string          ; // out : выхлоп скрипта
ret : integer         ; // out : exit-code
opt : TProcessOptions ; // in  : [poWaitOnExit,poUsePipes,poStderrToOutPut];
end;
type PRunCmdStruct = ^RunCmdStruct;
...
var
p_run_struct : PRunCmdStruct      ; // указатель на run-структуру
...
p_run_struct^.dir := _dir; // in :
p_run_struct^.cmd := _cmd; // in :
p_run_struct^.arg := _arg; // in :        <- this error
p_run_struct^.str := ''  ; // out : clear
p_run_struct^.ret :=  0  ; // out : clear


Код: Выделить всё

app.pas(155,22) Error: Incompatible types: got "{Open} Array Of AnsiString" expected "RunCmdStruct.{Dynamic} Array Of AnsiString"


[Дож]

в таком случае - несоответствие типа... (иначе-бы и вопроса не было :о)

В таком случае вы неправильно написали сигнатуры функций в первом посте.

точне далее, на операторе присвоения - ошибка!

Когда array of string написано в объявлении сигнатуры функции, это открытый массив (Open Array). Открытый массив можно представлять себе как неявную пару из двух значений: 1) указатель на первый элемент, 2) количество элементов. Или как массив с фиксированным количеством элементов, существующий в пределах выполнения функции.

Когда array of string написано в объявлении типа, это динамический массив (Dynamic Array). Динамический массив может неявно кастоваться в открытый массив, а открытый массив в динамический -- нет.

Об этом вам написано в приведённой ошибке. Чтобы скопировать _arg в arg можно явно написать SetLength и цикл с присваиваниями.

[sunjob]

неправильно написали сигнатуры функций в первом посте.

ну и... ? :о) далее... как правильно?

Чтобы скопировать _arg в arg можно явно написать SetLength и цикл с присваиваниями.

так сложно, попроще никак? :о) вроде бы как другие типы без проблем можно передавать, а вот с массивами загвоздочка... :о) как с точки зрения fpc-философии будет правильным использование "такого" параметра?
- формирование из-вне
- передача параметром в функцию
- присвоение внутри функции

[Alex2013]

function run_cmd(const _cmd: string; const _arg: array of string; const _dir: string):integer;

А что будет если заменить на var _arg: array of string; ?
Модификатор const по идее должен запрещать модификацию создавая временную копию переменной.
(да знаю работает это не всегда но вдруг причина в этом? )

[bormant]

А если заменить на var _arg: array of string; ?

Тогда потеряется возможность передать в RunCommandIndir(..., ['command1', 'command2', 'command3'], ...)

Добавлено спустя 1 минуту 29 секунд:

Модификатор const по идее запрещает модификацию создавая временную копию переменной.

Нет, ровно наоборот: модификатор const декларирует, что переменная неизменяема, и, следовательно, нет нужды создавать ее копию.

[Дож]

ну и... ? :о) далее... как правильно?

Правильно приводить так, как в коде, про который задаёте вопрос.

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

Вы различаете понятия "передача" и "оператор присваивания"?

[bormant]

попроще никак?

Нет. Даже Copy в этом не поможет.

Ничего сложного нет в предложенном выше:

Код: Выделить всё

var
  p_run_struct: PRunCmdStruct;
  i: Integer;
...
  with p_run_struct do
  begin
...
    SetLength(arg,Length(_arg));
    for i:=0 to Length(_arg)-1 do arg[i]:=_arg[i];


[Alex2013]

Тогда потеряется возможность передать в RunCommandIndir(..., ['command1', 'command2', 'command3'], ...)

Ну это довольно просто подпереть "костылем" ..
Run2 (const _cmd: string; const _arg: array of string; const _dir: string RunCom:procedure; ):integer;
В прочем зависит от того где именно вылезает ошибка ... Если при изменении массива то фокус может прокатить а если просто при использовании const _arg: array of string; в качестве параметров то нет.

[bormant]

довольно просто подпереть "костылем"

[здесь был бородатый анекдот про героическое преодоление трудностей, а именно про секс в гамаке, стоя на лыжах]

[sunjob]

как все сложно-то, а?! :о) ладушки... может проще будет передать указатель на массив? или все равно прийдется в цикле присвоение делать?

[Alex2013]

довольно просто подпереть "костылем"

[здесь был бородатый анекдот про героическое преодоление трудностей, а именно про секс в гамаке, стоя на лыжах]

Все верно .
Но я не претендую на истину а просто высказываю пришедшие в голову идеи в порядке "мозгового штурма".

[Дож]

может проще будет передать указатель на массив? или все равно прийдется в цикле присвоение делать?

Сто пудово придётся, если путать передачу и присвоение.

[sunjob]

... а так хорошо начинали ...