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