如何同时使用两个函数？

Question

嗨新德尔福。如何同时使用这两个功能？ 函数a（...）：整数; 函数b（...）：整数;

因为b等待a被冲洗。

Answer 1

你有可能需要多线程。你可以从about.com

Answer 2

它使用线程完成。然而，这是一个高级课题，在开始使用线程之前，您最好先学习编程的基础知识。

Answer 3

教程开始，还有“AsyncCalls”库，它可以满足你的需求。 请看看http://andy.jgknet.de/blog/?page_id=100

Answer 4

假设德尔福2009年或以上，并使用OmniThreadLibrary：

uses OtlParallel; 

var 
    aRes: integer; 
    bRes: integer; 

begin 
    Parallel.Join(
    procedure begin 
     aRes := a(); 
    end, 
    procedure begin 
     bRes := b(); 
    end); 
end. 

或者对谁不喜欢匿名函数较真：

uses OtlParallel; 

var 
    aRes: integer; 
    bRes: integer; 

procedure CalcA; 
begin 
    aRes := a(); 
end; 

procedure CalcB; 
begin 
    bRes := b(); 
end; 

begin 
    Parallel.Join(CalcA, CalcB); 
end. 

（它的工作工作如果CalcA和CalcB是方法而不是简单的程序，则相同。）

正如其他人所说，多线程领域ng编程充满危险。确保你的两个函数不修改相同的结构，不将数据输出到同一目的地，最重要的是，他们没有以任何方式使用GUI。