التحقق من ال editbox قبل ادخاله في listbox ؟

[STRELiTZIA]

بالنسبة للأخطاء اخي Hanipino اجاب عليها بوضوع

PHP كود :

for x := 0 to listbox1.Items.Count - 1 do 
    begin 
      if Listbox1.Items.Strings[x] = sName then 
      begin  
Exit;
end; 


1- اخذ الأسماء الموجودة حسب ترتيبها باستعمال Count للحصول على عددها الذي يصبح هو عدد الدورات.
2- مقارنة كل اسم حسب ترتيبة x بالاسم المدخل الموضوع في المتغير الحرفي sName و في حالة تطابق يخرج رسالة تخبر للمستعمل، و يعمل Exit للخروج من الحدث OnClick دون اكمال تنفيذ الأوامر التالية و في حالة عدم التطابق تنفذ كل الأوامر.

بالتوفيق ان شاء الله