Delphi ITASK 异步

Nov 15, 2015 13:51 · 16 words · 1 minute read

TTask.Run( procedure var aa: TClientRuleClient; begin aa := TClientRuleClient.Create(SQLConnection1.DBXConnection); ClientDataSet1.Data := aa.GetAll; ClientDataSet1.Open; FreeAndNil(aa); end );