Delphiによるマルチスレッドデータの取得方法を教えてください。

Delphiでは、TThreadクラスを使用することで、マルチスレッドでのデータ読み込みを実現できます。以下にサンプルコードを示します。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Forms;

type
  TDataThread = class(TThread)
  private
    FData: TStringList;
  protected
    procedure Execute; override;
  public
    constructor Create;
    destructor Destroy; override;
    property Data: TStringList read FData;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FDataThread: TDataThread;
    procedure DataThreadTerminate(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TDataThread.Create;
begin
  inherited Create(False); // 创建并启动线程
  FData := TStringList.Create;
end;

destructor TDataThread.Destroy;
begin
  FData.Free;
  inherited Destroy;
end;

procedure TDataThread.Execute;
begin
  // 在这里进行数据读取操作，将读取到的数据存储在FData中
  // 这里仅为示例，实际应根据具体需求进行修改
  FData.Clear;
  FData.Add('Data 1');
  FData.Add('Data 2');
  FData.Add('Data 3');
  FData.Add('Data 4');
  Sleep(2000); // 模拟读取操作的时间消耗
  FData.Add('Data 5');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDataThread := TDataThread.Create;
  FDataThread.OnTerminate := DataThreadTerminate;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FDataThread.Free;
end;

procedure TForm1.DataThreadTerminate(Sender: TObject);
begin
  // 数据读取线程结束后，可以在这里处理读取到的数据
  // 这里仅为示例，实际应根据具体需求进行修改
  ShowMessage('Data Loaded: ' + FDataThread.Data.Text);
end;

end.

TDataThreadクラスを作成することにより、上記のコードではデータ読み込みのマルチスレッド化を行っています。TDataThreadのExecuteメソッド内ではデータ読み込み処理を行い、読み込んだデータはFDataに格納しています。TForm1のOnCreateイベント内でTDataThreadを作成して起動し、同時にそのOnTerminateイベントをDataThreadTerminateメソッドに設定しています。DataThreadTerminateメソッド内では、読み込んだデータの処理を行うことができます。

特にマルチスレッド操作では、複数のスレッドが共有データを同時にアクセスすることで発生するエラーを防ぐために、スレッドの同期が重要です。上記の例のTStringListは、スレッドセーフであり、複数のスレッドで安全に使用できます。他の種類的数据構造を使用する場合は、スレッドセーフティを確保するための適切な同期機構を実装してください。