Как передать динамический массив в поток?

[bilibian]

Привет!

Пишу так:

type
  Thread = class(TThread)
    arr:array of string;
  protected
    procedure Execute; override;
    constructor Create(Tarr:array of string);
  end;

constructor Thread.Create(Tarr:array of string);
begin
  inherited Create(True);
  arr:=Tarr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var arr:array of string;
begin
SetLength(arr,3);
T:=Thread.Create(arr);
T.FreeOnTerminate:=true;
T.Resume;
T.Priority:=tpNormal;
end;

Получаю ошибку в конструкторе. Что то не так?

[Serge_Bliznykov]

ну, динамический массив это достаточно навороченная штукенция. (как, впрочем и String) - это указатель...

Для начала, я бы вынес описание типа отдельно:

type 
 TMyDynStringArray =   array of string;
...
type
  Thread = class(TThread)
....
  protected
    procedure Execute; override;
    constructor Create(Tarr:TMyDynStringArray);
...

[bilibian]

Ошибка в строке:

constructor Thread.Create(Tarr:array of string);
begin
  inherited Create(True);
  arr:=Tarr; // отладчик красит эту строку красным
end;

[dcc32 Error] Unit1.pas(81): E2010 Incompatible types: 'Dynamic array' and 'array of string'

Serge_Bliznykov, Ваш вариант ничего не меняет

[Serge_Bliznykov]

constructor Thread.Create(Tarr:array of string);

неужели я непонятно написал?!!

надо заменить Thread.Create(Tarr:array of string);
на

constructor Thread.Create(Tarr:TMyDynStringArray);
....

[Аватар]

Serge_Bliznykov, Ваш вариант ничего не меняет

Не правда. Если сделать так как Серж предлагает, то ошибки не будет. Другое дело, что на самом деле при таком способе передачи массив arr в потоке тот же, что передается при вызове. И могут быть проблемы при его изменении, если не предусмотрена синхронизация

[evg_m]

E2010 Incompatible types: 'Dynamic array' and 'array of string'

type TMyArr =array of string;
thread.Create(tarr: TMyArr);

var
  arr: TmyArr;

подробности по ключевым словам открытый массив (procname(r: array of ...) / динамический массив (var r: array of ...);

[bilibian]

Serge_Bliznykov я так и сделал.

Ошибка исчезла когда, я прописал так:

type 
 TMyDynStringArray =   array of string;

type
  Thread = class(TThread)
    arr:TMyDynStringArray;
  protected
    procedure Execute; override;
    constructor Create(Tarr:TMyDynStringArray);
  end;

constructor Thread.Create(Tarr:TMyDynStringArray);
begin
  inherited Create(True);
  arr:=Tarr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var arr:TMyDynStringArray;
begin
SetLength(arr,3);
T:=Thread.Create(arr);
T.FreeOnTerminate:=true;
T.Resume;
T.Priority:=tpNormal;
end;

[bilibian]

Спасибо за помощь!

[Serge_Bliznykov]

Пожалуйста.
я вообще не умею с потоками обращаться, но я обращаю ваше внимание на пост #5 (с) Аватар...

Если из разных потоков будете изменять массив, то понадобится делать это через синхронизацию!