Форум программистов [Powered by Invision Power Board]

Код


type TTest = record
               A,B,C : String;
               M     : Integer;
             end;

type
  TThrd = class(TThread)
  private
    FArr: array of TTest;
  protected
    procedure Execute; override;
  public
    property Arr: array of TTest write FArr; // Error
  end;

Цитата(DmitryHT @ 28.3.2008, 16:00)

через цикл по одному значению?

Цитата(pukin @ 28.3.2008, 15:51

)

, но помню, что не получалось

Цитата(Rennigth @ 28.3.2008, 16:17)

pukin,

Цитата(pukin @ 28.3.2008, 15:51

)

, но помню, что не получалось

Значит что-то не так делал. Create вызывай с Susperded True, потом копируй массив, потом Resume делай.

Код


unit Unit29;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TSomeThread = class;

  TForm29 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FThread: TSomeThread;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

  TSomeStruct = packed record
    SomeVar1: Integer;
    SomeVar2: string;
  end;

  TSomeStructList = array of TSomeStruct;

  TSomeThread = class(TThread)
  private
    FSomeStructList: TSomeStructList;
    function GetSomeStructList: TSomeStructList;
    procedure SetSomeStructList(const Value: TSomeStructList);
  protected
    procedure DoSomeWork;
    procedure Execute; override;
  public
    property SomeStructList: TSomeStructList read GetSomeStructList
      write SetSomeStructList;
  end;

var
  Form29: TForm29;

implementation

{$R *.dfm}

constructor TForm29.Create(AOwner: TComponent);
var
  lSomeStructList: TSomeStructList;
begin
  inherited;
  SetLength(lSomeStructList, 5);
  lSomeStructList[0].SomeVar2 := '0';
  lSomeStructList[1].SomeVar2 := '1';
  lSomeStructList[2].SomeVar2 := '2';
  lSomeStructList[3].SomeVar2 := '3';
  lSomeStructList[4].SomeVar2 := '4';

  FThread := TSomeThread.Create(True);
  FThread.SomeStructList := lSomeStructList;
  FThread.Resume;
end;

destructor TForm29.Destroy;
begin
  FThread.Terminate;
  WaitForSingleObject(FThread.Handle, INFINITE);
  FThread.Free;
  inherited;
end;

procedure TForm29.FormCreate(Sender: TObject);
begin

end;

{ TSomeThread }

procedure TSomeThread.DoSomeWork;
begin
  Application.MainForm.Caption := FSomeStructList[Random(Length(FSomeStructList))].SomeVar2;
end;

procedure TSomeThread.Execute;
begin
  inherited;
  while not Terminated do
  begin
    Sleep(100);
    if not Terminated then
      Synchronize(DoSomeWork);
  end;
end;

function TSomeThread.GetSomeStructList: TSomeStructList;
begin
  Result := FSomeStructList;
end;

procedure TSomeThread.SetSomeStructList(const Value: TSomeStructList);
begin
  FSomeStructList := Value;
end;

end.

Цитата(MetalFan @ 28.3.2008, 19:59

)

pukin, только учти, что не один пример не предусматривает корректную синхронизацию данных, что может привести к непредвиденным багам

Цитата(Rennigth @ 28.3.2008, 16:32

)

destructor TForm29.Destroy;
begin
  FThread.Terminate;
  WaitForSingleObject(FThread.Handle, INFINITE);
  FThread.Free;
  inherited;
end;

Цитата(MetalFan @ 29.3.2008, 09:50

)

так работать с данными из разных потоков недопустимо!

Цитата(VICTAR @ 29.3.2008, 10:21

)

Обиделся и встал в угол