摘要: TSynThread=class(TThread) Buf:TStringList; List :TStrings; procedure AddDate; constructor Create(CreateSuspended: Boolean); procedure Execute; override; procedure Terminate; end;{------------- TSynThread impl -----------------------------------------}constructor TSynThread.Creat... 阅读全文
posted @ 2012-04-01 10:17 ftwsnow 阅读(229) 评论(0) 推荐(0)