18-07-2010, 04:11 PM
السلام عليكم ورحمة الله
إخواني الكرام، أردت برمجة دالة خارجية لـ FireBird (UDF) عن طريق الدلفي 2009، جربت الدالة في الدلفي عملت بنجاح، لكن في FireBird لا تعمل أي شئ ، ترجع لي نفس القيمة التي أدخلتها،
بالتوفيق، وشكرا
إخواني الكرام، أردت برمجة دالة خارجية لـ FireBird (UDF) عن طريق الدلفي 2009، جربت الدالة في الدلفي عملت بنجاح، لكن في FireBird لا تعمل أي شئ ، ترجع لي نفس القيمة التي أدخلتها،
كود :
function withowtTachkil(Const Text : PChar) : PChar; cdecl;
var
S : String;
L : string;
C : Char;
begin
S := string(Text);
for C := #$064E to #$0652 do
begin
S:= StringReplace(S,C,'',[rfReplaceAll]);
end;
L := S;
Result := Pchar(L);
end;بالتوفيق، وشكرا