+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ (/showthread.php?tid=4659)
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - M_Mori2010 - 22-10-2012
السلام عليكم ورحمة الله وبركاته ...
اخوتي الكرام واجهتني مشكلة في الفحص من ليست فيو وهي اذا كان الجملة مطابقة فليس هناك اي مشكلة لكن اذا كان نمط الحروف يختلف مثلاً اذا كان حرف A كبير والمدخل في LIstview صغير فلايتم المطابقة حيث اني حاولت لحل المشكلة لكن لن افلح فهل من حل ؟
جزاكم الله كل خير
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - justnick - 22-10-2012
استخدم AnsiLowerCase
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - M_Mori2010 - 22-10-2012
شكراً اخي لكن وجدت طريقة اخرى وهي rfReplaceAll, rfIgnoreCase نجخت لكن هل هية مضمونة ؟
جزاك الله كل خير
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - justnick - 23-10-2012
جرب واخبرنا بالامر
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - phpbb3 - 24-10-2012
كود :
function toupper(x:AnsiChar):LongInt cdecl;
begin
if x in ['A'..'Z']then
Result := Byte(x)
else
Result := Byte(x) - Byte('a') + Byte('A') ;
end;
function stricmp(const s1,s2:PAnsiChar):LongInt cdecl;
var i:LongInt;
begin
i:=0;
Result := 0;
while (toupper(s1[i]) = toupper(s2[i]))do
begin
if s1[i] = #0 then Exit;
Inc(i);
end;
Result := toupper(s1[i]) - toupper(s2[i]);
end;كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - M_Mori2010 - 24-10-2012
شكراً لكم لكن طريقتني نجحت بنسبة 100% جزاكم الله كل خير
اليكم الطريقة :
كود :
n2.Text:=copy(s,pos('$%',s)+2,pos('^&',s)-pos('$%',s)-2);
for i := 0 to lv2.Items.Count - 1 do
begin
n2.text := StringReplace(n2.text, lv2.Items[i].Caption ,lv2.Items[i].Caption , [rfReplaceAll, rfIgnoreCase]);
end;هكذا يتم الفحص دون ان يتم التغيير في Listview
شكراً لكم مرة اخرى أخوتي
كيف يتم التأكد من الجملة دون الاهتمام لحجم الحروف ؟ - S.FATEH - 25-10-2012
كود :
if UpperCase(Edit1.Text) = UpperCase(Edit2.Text) then