问一个问题,请大家帮帮我啊!

Question

有谁知道如何如何锁住Tstringlist内的东西啊，谢谢大家啊！！！！

Answer 1

比如
procedure TForm1.Button2Click(Sender: TObject);
var
data:Tstirnglist;
begin
 data:=Tstirnglist.create;
 data.add('123');
end;
将data锁上啊，不明白，请大虾帮帮我啊，谢谢！！！！

Answer 2

我也知道是說的是將一TStringList對象鎖住,但是我想知道的是樓主想達到什麼樣的效果,比如說是讓TStringList只讀不允許其它對象修改.

Answer 3

TStringList本身达不到这种效果,要么做一个TStringList的超类,实现用一个tcriticalsection对象来现实