delphi useful functions دوال و إجراءات دلفي مفيدة

[Najy Ibraheem]

السشلام عليكم....

دالة لقبول الحروف العربية فقط (في TEdit مثلاً) - مع أو دون السماح بالفراغ:

كود :

const ArabicLetters: array[0..35] of Char = 'اىءأإآؤئبتثجحخدذرزسشصضطظعغفقكلمنهوية'; // // function IsArabicLetter(AChar: Char; IncludeSpace: Boolean = True): Boolean; begin if AChar = '' then Result := False else if AChar = ' ' then Result := IncludeSpace else Result := (Pos(AChar, ArabicLetters) <> 0); end; // In OnKeyPress event handler of an edit: if (Key > #31) and (not IsArabicLetter(Key)) then Key := #0;

نرجو الاستفادة و السلام.