OmniThreadLibrary Async &Await异步编程

 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相关的代码进行分离

Licensed under CC BY-NC-SA 4.0
记录平时瞎折腾遇到的各种问题, 方便查找
使用 Hugo 构建
主题 Stack 3.29.0Jimmy 设计