دخول

bahmani · 21-07-2010, 07:27 AM

السلام عليكم ورحمة الله

بعد تجريب كل الإحتمالات - الحمد لله - توصلت إلى مايلي :

كود :
function withowtTachkil(Const Text : PAnsiChar) : PAnsiChar; cdecl;
var
 c: Char;
 S : string;
 AText ,R: AnsiString;
 i,j : Integer;

begin
  AText := AnsiString(Text);
  S := UTF8ToWideString(A);


  for C := #$064B to #$0652 do  //الحركات
   begin

     S:= StringReplace(S,C,'',[rfReplaceAll]);
   end;
  R := UTF8Encode(S);
  Result := PAnsiChar(R);
end;

على ما يبدو، FireBird يرسل القيم النصية بترميز UTF8، لذلك يجب تحويلها إلى Unicode لتستطيع التعامل معها

من له شرح أوضح اهذه القضية فليتفضل

بالتوفيق وشكرا

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة