Получить в ответ от функции массив

[Shouldercannon]

Задача:
Передать функции данные в переменной типа string, которая содержит в себе: 000#001#002#003#. Функция должна прислать в ответ массив с переменными типа string и прочими если они есть. Примерный вид:
mas[].txt0 := 000;
mas[].txt1 := 001;
mas[].txt2 := 002;
mas[].txt3 := 003;
mas[].txt4 := True;
Далее в процедуре, из которой вызывали функцию пройтись по полученному массиву и раскидать данные.

type
  TMyData = record
    txt0: string;
    txt1: string;
    txt2: string;
    txt3: string;
    bool: Boolean;
  end;
...
function Test(s: string): {Возврат массива. Как прописать?};
var
  i: Integer;
begin
  // Парсинг
  i := High(MyData) + 2;
  SetLength(MyData, i);

  Mas[i].txt0 := Copy(s, 1, Pos('#', s) - 1);
  Delete(s, 1, Pos('#', s));
  Mas[i].txt1 := Copy(s, 1, Pos('#', s) - 1);
  Delete(s, 1, Pos('#', s));
  Mas[i].txt2 := Copy(s, 1, Pos('#', s) - 1);
  Delete(s, 1, Pos('#', s));
  Mas[i].txt3 := Copy(s, 1, Pos('#', s) - 1);
  Delete(s, 1, Pos('#', s));
  Mas[i].bool := StrToBool(Copy(s, 1, Pos('#', s) - 1));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test('000#001#002#003#0#');
end;

[evg_m]

type TMyDataArr =array of TMyData;

function Test(s: string): TMyDataArr;
begin
  setlength(result, ...);
.....
end;

[Shouldercannon]

TMyDataArr = array of TMyData;

Undeclared identifier: 'TMyData'

[Аватар]

TMyDataArr = array of Integer; //или другого дельфийского или вашего типа

ADD увидел ваш TMyData. Обїявление TMyDataArr после объявления TMyData поставьте

[Shouldercannon]

Сообщение от Аватар

ADD увидел ваш TMyData. Обїявление TMyDataArr после объявления TMyData поставьте

Тобишь местами поменять?

TMyData = array of TMyDataArr;

type
  TMyDataArr = array of string;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Test(s: string): TMyDataArr;
var
  i: Integer;
begin
  SetLength(Result, 0);

  i := High(Result) + 2;
  SetLength(Result, i);
  Result[i - 1] := Copy(s, 1, Pos('@', s) - 1);
  Delete(s, 1, Pos('@', s));

  i := High(Result) + 2;
  SetLength(Result, i);
  Result[i - 1] := Copy(s, 1, Pos('#', s) - 1);
  Delete(s, 1, Pos('#', s));

  i := High(Result) + 2;
  SetLength(Result, i);
  Result[i - 1] := Copy(s, 1, Pos('$', s) - 1);
  Delete(s, 1, Pos('$', s));

  i := High(Result) + 2;
  SetLength(Result, i);
  Result[i - 1] := Copy(s, 1, Pos('%', s) - 1);
  Delete(s, 1, Pos('%', s));

  i := High(Result) + 2;
  SetLength(Result, i);
  Result[i - 1] := Copy(s, 1, Pos('&', s) - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test('000@001#002$003%0&');
end;

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

[phomm]

Я бы написал примерно так:

function Test(s: string): TMyDataArr;
var
  i, L: Integer;
  Cut: string;
begin
  SetLength(Result, 0); // сомневаюсь что надо, но ибо резалт лок. перем., лучше оставим
  Cut := '';
  for i := 1 to Length(s) do
  if s[i] in ['@', '#', '$', '%', '&'] then // если надо, подбавить разделителей
  begin
    L := Length(Result);
    SetLength(Result, L + 1);
    Result[L] := Cut;
    Cut := '';
  end
  else
    Cut := Cut + S[i];
end;

[Shouldercannon]

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

[phomm]

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

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: array of string;
  i: Integer;
begin
  SetLength(Answer, 2);
  Answer := Test('000@001#002$003%0&'); // Incompatible types
end;

Бред с ошибкой.

[Serge_Bliznykov]

Answer: array of string;
...

function Test(s: string): TMyDataArr;

Бред с ошибкой.

ну разумеется. типы то РАЗНЫЕ.
Это раз. а во-вторых, размер массива уже задаётся в самой функции..
попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: TMyDataArr ;
begin
  Answer := Test('000@001#002$003%0&'); 
end;

p.s. код не проверял...