+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحقق من ال editbox قبل ادخاله في listbox ؟ (/showthread.php?tid=331)
الصفحات:
1
2
التحقق من ال editbox قبل ادخاله في listbox ؟ - hanipino - 18-12-2008
هده طريقة اخرى (صعيرة و جميلة و مفهومة) . طريقتين احسن من طريقة .
كود :
Function theStr(Str:string;Listbox:TListBox):Variant;
var
I: integer;
begin
I := Listbox.Items.IndexOf(Str);
if I > -1 then
ShowMessage('موجود مسبقا'+' '+Str)
else
If (Str <> '') then
listbox.Items.Add(Str);
end;كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
theStr(Edit1.Text,Listbox1);
end;التحقق من ال editbox قبل ادخاله في listbox ؟ - AL-MOB4RM3G - 18-12-2008
نعم اخي STRELiTZIA بارك الله فيك على التوضيح...
و الآن مفهوم تماما ولكن
لم افهم لماذا وضعت ناقص واحد ؟
PHP كود :
listbox1.Items.Count - 1 do
هذه الوحيدة التي لم افهمها.,..
امّا اخي hanipino فبارك الله فيكم...
وسيتم تجربة هذا الكود ان شاء الله تعلى...
التحقق من ال editbox قبل ادخاله في listbox ؟ - محمد عبد العزيز - 18-12-2008
لو قراءت جيدا ردي السابق لما طرحت هذا السؤال
نضع ناقص واحد لان العد يبداء من الصفر
لو كان لدينا 3 عناصر في ListBox
الCount سيكون 3
رقم اول عنصر هو 0
الثاني هو 1
الثالث هو 2
اذن الحلقة تكون من 0 الى 2
التحقق من ال editbox قبل ادخاله في listbox ؟ - AL-MOB4RM3G - 19-12-2008
deltaaziz كتب :
لو قراءت جيدا ردي السابق لما طرحت هذا السؤال
نضع ناقص واحد لان العد يبداء من الصفر
لو كان لدينا 3 عناصر في listbox
الcount سيكون 3
رقم اول عنصر هو 0
الثاني هو 1
الثالث هو 2
اذن الحلقة تكون من 0 الى 2
نعم اخي ديلتا عزيز...
سامحني اكرمك الله...
في الحقيقة انا قرأته ولكن لم افهمه جيدا...
لذلك سألت مرة اخرى...
والآن واضح تماما ان شاء الله
سامحني.. :o