如何同時使用兩個函數？

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。