大概是这样的结构吧 type TMyClass = class FName:string; FTag:integer; procedure ExecuteThread; end; type TMyThread = class(Thread) protected procedure Execute;override; end; type MyObjectList = array[1..10] of TMyClass;
procedure TMyClass.ExecuteThread; var MyThread:TMyThread; begin MyThread:=TMyThread.Create//创建线程 end; 而我现在希望每个TMyClass的实例都创建一个线程,而每个线程又都知道是哪个实例创建的自己,并对创建自己的实例的FTag属性进行修改。 我也想过了一些办法,不过都不算满意,请教各位在这种情况下一般会采用哪些方法,谢谢。。。。
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!