[UDF系列之四]:傳遞和返回數據到一個Delphi編寫的UDF
Warton譯
作者: Chris Levesque, Tina Grubbe, Brett Bandy
--------------------------------------------------------------------------------
[譯者敘]:
前面我已經翻譯了幾篇關於編寫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;
本主來自：MER Systems Inc.. http://www.mers.com
