هده طريقة اخرى (صعيرة و جميلة و مفهومة) . طريقتين احسن من طريقة .
كود :
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;
نعم اخي STRELiTZIA بارك الله فيك على التوضيح...
و الآن مفهوم تماما ولكن
لم افهم لماذا وضعت ناقص واحد ؟
PHP كود :
listbox1.Items.Count - 1 do
هذه الوحيدة التي لم افهمها.,..
امّا اخي hanipino فبارك الله فيكم...
وسيتم تجربة هذا الكود ان شاء الله تعلى...
لو قراءت جيدا ردي السابق لما طرحت هذا السؤال
نضع ناقص واحد لان العد يبداء من الصفر
لو كان لدينا 3 عناصر في ListBox
الCount سيكون 3
رقم اول عنصر هو 0
الثاني هو 1
الثالث هو 2
اذن الحلقة تكون من 0 الى 2
deltaaziz كتب :
لو قراءت جيدا ردي السابق لما طرحت هذا السؤال
نضع ناقص واحد لان العد يبداء من الصفر
لو كان لدينا 3 عناصر في listbox
الcount سيكون 3
رقم اول عنصر هو 0
الثاني هو 1
الثالث هو 2
اذن الحلقة تكون من 0 الى 2
نعم اخي ديلتا عزيز...
سامحني اكرمك الله...
في الحقيقة انا قرأته ولكن لم افهمه جيدا...
لذلك سألت مرة اخرى...
والآن واضح تماما ان شاء الله
سامحني.. :o