程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 傳遞和返回數據到一個Delphi編寫的UDF

傳遞和返回數據到一個Delphi編寫的UDF

編輯：Delphi

[譯者敘]:

前面我已經翻譯了幾篇關於編寫UDF的文章，雖然一些朋友可能也從中得到了一點幫助，但是可能對UDF的

認識還存在一些問題。今天，我再翻譯兩文章，這兩篇文章都是來自MER System (http://www.mers.com)

的，有興趣的朋友可以查看原文。

[論點]：

當動態鏈接庫沒有為受保護的數據值做特殊的預防時，我們的UDF帶有參數值或返回值的數據結果可能處在一個受保護的異常或錯誤結果之中。

[解決方案]：

每一個日期值被保存在兩個32位的整數類型之中：一個表示日期的signed integer，和一個表示時間的unsigned integer。使用Delphi代碼來定義這個結構(ISC_QUAD)和結構的指針(PISC_QUAD)：

type
            {InterBase Date/Time Record}
            ISC_QUAD = record
            isc_quad_high : Integer ;  // Date
            isc_quad_low  : Cardinal ; // Time
            end;
            PISC_QUAD = ^ISC_QUAD;

為了保護返回值，在函數定義的外部申明一個線程安全的ISC_QUAD變量，使它保存返回值(如果返回值是一個日期型的數據)。

threadvar

tempquad : ISC_QUAD;

然後編寫你的函數以便結果指向線程變量。

// 定義函數
            // This function adds a number of days to an existing date.
            function DayAdd( var Days: Integer; IBDate PISC_QUAD) : PISC_QUAD; cdecl; export;
            begin
            tempquad.isc_quad_high := IBDate^.isc_quad_high + Days;
            tempquad.isc_quad_low  := IBDate^.isc_quad_low;
            Result := @tempquad;
            end;