delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته ...

اخوتي الكرام واجهتني مشكلة في الفحص من ليست فيو وهي اذا كان الجملة مطابقة فليس هناك اي مشكلة لكن اذا كان نمط الحروف يختلف مثلاً اذا كان حرف A كبير والمدخل في LIstview صغير فلايتم المطابقة حيث اني حاولت لحل المشكلة لكن لن افلح فهل من حل ؟

جزاكم الله كل خير

استخدم AnsiLowerCase

شكراً اخي لكن وجدت طريقة اخرى وهي rfReplaceAll, rfIgnoreCase نجخت لكن هل هية مضمونة ؟

جزاك الله كل خير

جرب واخبرنا بالامر

كود :
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;

شكراً لكم لكن طريقتني نجحت بنسبة 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

شكراً لكم مرة اخرى أخوتي

كود :
if UpperCase(Edit1.Text) = UpperCase(Edit2.Text) then

ماذا تريد ان تفعل بالضبط...

M_Mori2010

justnick

M_Mori2010

justnick

phpbb3

M_Mori2010

S.FATEH