21-02-2018, 10:27 AM
22-02-2018, 02:51 AM
تجاهل الحرف معناها البحث بكل حركات الحرف الممكنة
عل ان تولد استعلام يدوي يحوي جميع الاحتمالات التي تحددها
عل ان تولد استعلام يدوي يحوي جميع الاحتمالات التي تحددها
07-03-2018, 09:55 AM
بارك الله فيك أخي houdini .
وجدت في آخر إصدار لمجلة الدالفي الخاصة بالموقع والتي تستدعي منا الشكر الجزيل للقائمين عليها على كل مايقدمونه من فوائد ، أقول وجدت في آخر المجلة كلام حول خاصية تجاهل الأحرف وهي roignorecase .
ممكن أحد من الإخوة يشرح لنا دورها وهل أجد فيها الحل لما طرحته وبارك الله فيكم .
وجدت في آخر إصدار لمجلة الدالفي الخاصة بالموقع والتي تستدعي منا الشكر الجزيل للقائمين عليها على كل مايقدمونه من فوائد ، أقول وجدت في آخر المجلة كلام حول خاصية تجاهل الأحرف وهي roignorecase .
ممكن أحد من الإخوة يشرح لنا دورها وهل أجد فيها الحل لما طرحته وبارك الله فيكم .
07-03-2018, 12:34 PM
ربما سهلة اخي النذير
انشأ دالة نصية تفحص و تبدل كل حرف من الحروف الغير مرغوب فيها بحرف عادي في البحث
انشأ دالة نصية تفحص و تبدل كل حرف من الحروف الغير مرغوب فيها بحرف عادي في البحث
07-03-2018, 02:51 PM
بارك الله فيك أخي ، لكن بصراحة ماعرفت ، أحيانا تتوقف كل خلايا التفكير لديك وتتخدر وهكذا حصل معي فحبذا لو حقنة منشطة فكرة أو تلميح بسيط هههه الله يحفظكم
07-03-2018, 06:15 PM
السلام عليكم
كمثال يمكنك استخدام دالة
كمثال يمكنك استخدام دالة
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;
08-03-2018, 09:06 AM
وعليكم السلام ورحمة الله وبركاته
جزاك الله خيرا ، هذا ماكنت أبحث عنه
جزاك الله خيرا ، هذا ماكنت أبحث عنه
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;