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

[Shouldercannon]

Спасибо, работает.

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

  Label1.Caption := Answer[0];
  Label2.Caption := Answer[1];
  Label3.Caption := Answer[2];
  Label4.Caption := Answer[3];
  Label5.Caption := Answer[4];
end;

При выносе данной функции в отдельный Unit в форме, где будет применятся функция нужно будет обязательно указать?

type
  TMyDataArr = array of string;

Добавлено в 19:25
Тест показал, что

type
  TMyDataArr = array of string;

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

type
  TMyDataArr = array of string;

прописывать не требуется.

[Shouldercannon]

Подскажите, пожалуйста, как тоже самое проделать с динамическим массивом такого вида: TMyDataArr = record

unit Unit1;

...

var
  Form1: TForm1;

implementation

uses Utils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: TMyDataArr; // Явно не так будет
  i: Integer;
  Item: TListItem;
begin
  Answer := Test('000#001#002#003#004#'); // Тут по другому будет заполнться

  for i := 0 to Length(Answer) - 1 do
  begin
    Item := ListView1.Items.Add;
    Item.Caption := Answer[i];
  end;
end;

end.

unit Utils;

interface

type
  TMyDataArr = record
    Para1: string;
    Para2: string;
  end;

var
  MyDataArr: array of TMyDataArr;

function Test(s: string): TMyDataArr;

implementation

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

  while Pos('#', s) <> 0 do
  begin
    i := High(Result) + 2; // Incompatible types
    SetLength(Result, i); // Incompatible types
    Result[i - 1] := Copy(s, 1, Pos('#', s) - 1); // Array type required
    Delete(s, 1, Pos('#', s));
  end;
end;

end.

[min@y™]

Создай новый топик.