Delphi: Làm thế nào để tạo ra một chủ đề an toàn toàn cầu TList?

Question

Làm thế nào để tạo một Chủ đề an toàn TList toàn cầu?

unit Unit1; 
interface 
uses 
    ...; 
type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 
    global_TList: TList; // Not thread safe? 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
// something 
end; 

end. 

Tôi có hai chủ đề, có thể ghi vào global_TList, nhưng như tôi biết, nó không phải là chủ đề an toàn.

Vậy làm cách nào để an toàn?

Delphi 2010, Indy 10, Win7

Answer 1

Sử dụng TThreadList. Đã giải quyết được sự cố.