تجاهل الفرق بين " أ " و" ا "

أين مطلوب التجاهل

(قواعد بيانات / أديت / ميمو/........إلخ)

الرجاء التحديد أكثر لعل الحل موجود إن شاء الله

على أي متغير String

وشكرا للاهتمام

السلام عليكم

الحل في المثال المرفق إن شاء الله

و إن لم يكن الحل المطلوب فأنا بالخدمة

و الاسلام ختام

Example.zip

اخي rober عندما تضع كود ما حاول ان تضعه في المنتدى كود أولا ثم إذا احببت أن تضع مثال,

هنا الكود الذي وضعه rober و الذي يقوم بتحويل "أ" إلى "ا"

procedure TForm1.Button1Click(Sender: TObject);
var a : string; i : integer;
begin
   a := edit1.Text;
   for i := 1 to length(a) do
   begin
	  if a = 'أ' then
	  a := 'ا';
   end;
   edit1.Text := a;
end;

مشكور أخي وائل على الملاحظة

وأعتذر على هذا الخطأ

لك مني فائق الشكر و الأحترام

و السلام ختام

السلام عليكم

آسف على التأخير

ولكن ليس هذا ما أبحث عليه

لأن عملية تغيير " أ" إلى " ا " قد تتطلب وقتا إضافياً عند البحث وخاصة في البيانات الكبيرة

لذا أنا أبحث عن شيء مثل تجاهل حالة الحروف الكبيرة والصغيرة بالنسبة للغة الإنجليزية

وأكرر شكري لاهتمامكم

وفقنا الله وإياكم لما يحبه ويرضاه

الرابط التالي يحتوي على عدة أمثلة عن string هي عبارة عن توابع موجودة في مكتبة SysUtils

أرجو أن يفيدك

http://www.delphibasics.co.uk/ByFunction.a...s&Sub=Calcs