Вывод массива из процедуры

[Skalp]

Среда разработки - Делфи.

Есть процедура procedure блабла(a: integer; var b: array of string);
Эта процедура находится внутри другой процедуры.
Во-первых у меня не получается задать длину массива b, пишет: Incompatible types.
Во-вторых мне надо заполнить этот массив, но из-за того, что выше написано, не получается, а мне его надо вытащить на внешнюю процедуру.

Заранее спс.

[Hacker19_90]

Во-первых у меня не получается задать длину массива b, пишет: Incompatible types.

эээээ
SetLength(b, <range>) - ???

[Skalp]

Сообщение от Hacker19_90

эээээ
SetLength(b, <range>) - ???

вот тут и ошибка: Incompatible types.
Дело в том, что если объявить массив после procedure blabla(...), то все нормально, но массив уже не вытащить(

[Hacker19_90]

Код покажите! Я же не телепат!

[Skalp]

procedure MessDelim(str: string; var ms_count: integer; var mess_array: array of string);
var tempstring: string;
begin
ms_count:=0;
RegExp := TRegExpr.Create;
  try
    tempstring:='';
    RegExp.Expression := '[-a-zA-Z\dа-яА-Я{}\\:"\[\]_\s]{1,}[^,]';
    if RegExp.Exec(str) then
    begin
      repeat
        if RegExp.Match[0][length(RegExp.Match[0])]<>'}' then
          begin
            if tempstring=''
            then tempstring:=tempstring+RegExp.Match[0]
            else tempstring:=tempstring+','+RegExp.Match[0];
          end
        else
          begin
            inc(ms_count);
            setlength(mess_array,ms_count);
            mess_array[ms_count-1]:=tempstring+','+RegExp.Match[0];
            tempstring:='';
            memo1.Lines.Add(mess_array[ms_count-1]);
          end;
      until not RegExp.ExecNext;
    end
    else
      exit;
  finally
    RegExp.Free;
  end;
end;

[Hacker19_90]

А тьфу!
Конструкция array of string означает динамический массив везде, кроме параметров подпрограмм - где она означает открытый массив.
Вот так!
Так что изменить размер не удасться!

[Skalp]

Какими еще способами можно вывести динамический массив из процедуры?

[Hacker19_90]

Так ну давай те рассуждать проще!
Вам нужно хранилище строк, причём динамическое!
Так чё бы вам не использовать глобальный
TStrings ??
как то так

uses
    Classes //и остальные модули
var
    s: TStrings;
begin
    // тут в самом начале вызываем конструктор
    s := TString.Create;
    //потом код там всякий
    //в конце
   s.Free
end.

ну соответственно вашу процедуру меняем как-то так

procedure MessDelim(str: string);
var tempstring: string;
begin
RegExp := TRegExpr.Create;
  try
    tempstring:='';
    RegExp.Expression := '[-a-zA-Z\dа-яА-Я{}\\:"\[\]_\s]{1,}[^,]';
    if RegExp.Exec(str) then
    begin
      repeat
        if RegExp.Match[0][length(RegExp.Match[0])]<>'}' then
          begin
            if tempstring=''
            then tempstring:=tempstring+RegExp.Match[0]
            else tempstring:=tempstring+','+RegExp.Match[0];
          end
        else
          begin
            s.Add(tempstring+','+RegExp.Match[0]);
            tempstring:='';
            //вот тут самое интересное переменная для хранения длины нам не нужна
            // тк есть s.Count;
            // но я не помню как индексируются строки с 0 или 1 так что проверяйте
            memo1.Lines.Add(s.Strings[s.Count-1]);
          end;
      until not RegExp.ExecNext;
    end
    else
      exit;
  finally
    RegExp.Free;
  end;
end;

[Skalp]

Всем спасибо, все работает.