+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تجاهل الحروف c & ç (/showthread.php?tid=9192)
تجاهل الحروف c & ç - nadire1946 - 21-02-2018
السلام عليكم
هل هناك طريقة لتجاهل بعض فروقات الحروف مثلا
Maçon & Macon
Mécanique & Mecanique
خاصة عند البحث أو الفلترة ؟
RE: تجاهل الحروف c & ç - Houdini - 22-02-2018
تجاهل الحرف معناها البحث بكل حركات الحرف الممكنة
عل ان تولد استعلام يدوي يحوي جميع الاحتمالات التي تحددها
RE: تجاهل الحروف c & ç - nadire1946 - 07-03-2018
بارك الله فيك أخي houdini .
وجدت في آخر إصدار لمجلة الدالفي الخاصة بالموقع والتي تستدعي منا الشكر الجزيل للقائمين عليها على كل مايقدمونه من فوائد ، أقول وجدت في آخر المجلة كلام حول خاصية تجاهل الأحرف وهي roignorecase .
ممكن أحد من الإخوة يشرح لنا دورها وهل أجد فيها الحل لما طرحته وبارك الله فيكم .
RE: تجاهل الحروف c & ç - mobile - 07-03-2018
ربما سهلة اخي النذير
انشأ دالة نصية تفحص و تبدل كل حرف من الحروف الغير مرغوب فيها بحرف عادي في البحث
RE: تجاهل الحروف c & ç - nadire1946 - 07-03-2018
بارك الله فيك أخي ، لكن بصراحة ماعرفت ، أحيانا تتوقف كل خلايا التفكير لديك وتتخدر وهكذا حصل معي فحبذا لو حقنة منشطة فكرة أو تلميح بسيط هههه الله يحفظكم
RE: تجاهل الحروف c & ç - S.FATEH - 07-03-2018
السلام عليكم
كمثال يمكنك استخدام دالة
PHP كود :
function TForm1.SimpleText(Text: string): string;
const
OldText: string = ('àâéèêëîïìôòùû');
NewText: string = ('aaeeeeiiioouu');
var
I: Integer;
s: string;
begin
s:= Text;
for I := 1 to Length(OldText) do
s := StringReplace(s, OldText[I], NewText[I], [rfReplaceAll, rfIgnoreCase]);
Result := s;
end;
RE: تجاهل الحروف c & ç - nadire1946 - 08-03-2018
وعليكم السلام ورحمة الله وبركاته
جزاك الله خيرا ، هذا ماكنت أبحث عنه
PHP كود :
function SimpleText(Text: string): string;
const
OldText : array [1..14] of string = ('à','â','é','è','ê','ë','î','ï','ì','ô','ò','ù','û','ç');
NewText : array [1..14] of string = ('a','a','e','e','e','e','i','i','i','o','o','u','u','c');
var
I: Integer;
s: string;
begin
s:= Text;
for I := 1 to Length(OldText) do
s := StringReplace(s, OldText[I], NewText[I], [rfReplaceAll, rfIgnoreCase]);
Result := s;
end;