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

[Shouldercannon]

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

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.

[Stilet]

// Явно не так будет

Почему не так? ИМХО самэ так.

[Shouldercannon]

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

Почему не так? ИМХО самэ так.

До этого момента ещё дойти надо. Пока застрял на Utils.

[min@y™]

SetLength(Result, 0); // result у тебя - не динмассив и не строка, а record TMyDataArr

[Stilet]

unit Utils;

interface

type
  TMyDataRec= record
    Para1: string;
    Para2: string;
  end;
 TMyDataArr=array of TMyDataRec
var
  MyDataArr: array of TMyDataArr;

function Test(s: string): TMyDataArr;

implementation

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

  while Pos('#', s) <> 0 do
  begin
    i := High(Result) + 2; 
    SetLength(Result, i); 
    Result[i - 1] .Para1:= Copy(s, 1, Pos('#', s) - 1);
    Delete(s, 1, Pos('#', s));
  end;
end;

Годится?

[Shouldercannon]

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

Годится?

Вполне годится

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

type
  TGetUsers_Thread = class(TThread)
  private
    { Private declarations }
    s: string;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetUsers_Thread := TGetUsers_Thread.Create(True);
  GetUsers_Thread.s := '0~qqq0~www0!end-name1~qqq1~www1!end-name2~qqq2~www2!end-name3~qqq3~www3!end-name4~qqq4~www4!end-name';
  GetUsers_Thread.FreeOnTerminate := True;
  GetUsers_Thread.Resume;
end;

procedure TGetUsers_Thread.Execute;
var
  Answer: TMyDataArr;
begin
  Answer := Test(s);
  Synchronize(SyncProc);

  Terminate;
end;

procedure TGetUsers_Thread.SyncProc;
var
  i: Integer;
  Item: TListItem;
begin
  for i := 0 to Length(Answer) - 1 do
  begin
    Item := Form1.ListView1.Items.Add;
    Item.Caption := Answer[i].Para1;
    Item.SubItems.Add(Answer[i].Para2);
  end;
end;

[Stilet]

Answer: TMyDataArr; опиши та же где у тебя описана s.

[Shouldercannon]

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

Answer: TMyDataArr; опиши та же где у тебя описана s.

В том и беда, что пробовал так и в ответ получил неопознанный идентификатор TMyDataArr

[Stilet]

И как же выглядели пробы?

[Shouldercannon]

type
  TGetUsers_Thread = class(TThread)
  private
    { Private declarations }
    s: string;
    Answer: TMyDataArr; // Undeclared identifier: 'TMyDataArr'
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

procedure TGetUsers_Thread.Execute;
begin
  Answer := Test(s);
  Synchronize(SyncProc);

  Terminate;
end;

procedure TGetUsers_Thread.SyncProc;
var
  i: Integer;
  Item: TListItem;
begin
  for i := 0 to Length(Answer) - 1 do
  begin
    Item := Form1.ListView1.Items.Add;
    Item.Caption := Answer[i].Para1;
    Item.SubItems.Add(Answer[i].Para2);
  end;
end;