1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
uses OtlParallel;
Label1.Caption :='waiting...';
Async(
procedure
var
aa: TClientRuleClient;
begin
aa := TClientRuleClient.Create(SQLConnection1.DBXConnection);
ClientDataSet2.Data := aa.GetAll;
FreeAndNil(aa);
end)
.Await(
procedure
begin
ClientDataSet2.Open;
Label1.Caption :='end'
end
);
|
将和UI操作无关的部分代码和操作UI相关的代码进行分离