المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
السلام عليكم ورحمة الله وبركاته ...
اخوتي الكرام واجهتني مشكلة في الفحص من ليست فيو وهي اذا كان الجملة مطابقة فليس هناك اي مشكلة لكن اذا كان نمط الحروف يختلف مثلاً اذا كان حرف A كبير والمدخل في LIstview صغير فلايتم المطابقة حيث اني حاولت لحل المشكلة لكن لن افلح فهل من حل ؟
جزاكم الله كل خير
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 146
المواضيع 5
:
: 6
الإنتساب : Feb 2010
المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
شكراً اخي لكن وجدت طريقة اخرى وهي rfReplaceAll, rfIgnoreCase نجخت لكن هل هية مضمونة ؟
جزاك الله كل خير
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 146
المواضيع 5
:
: 6
الإنتساب : Feb 2010
المشاركات : 56
المواضيع 8
:
: 2
الإنتساب : Jun 2009
كود :
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;
المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
شكراً لكم لكن طريقتني نجحت بنسبة 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
شكراً لكم مرة اخرى أخوتي
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
كود :
if UpperCase(Edit1.Text) = UpperCase(Edit2.Text) then
ماذا تريد ان تفعل بالضبط...
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
