خطأ في الكود ، لم أجد مكان الخطأ !!!

[ramiparadox]

السلام عليكم ،
أخي الحبيب دعنا نوضح الحل و نبسطه أكثر  
1- عندما يدخل المستعمل رقم  التسجيل (أو الرقم الذي تود إدخاله)
   1-1  تتحقق من أن قيمة  Edit فارغة ، إذا كانت كذلك تخبر المستعمل أنه يجب عليه إدخال  رقم التسجيل.
   2-1 إذا كانت قيمة Edit   ليست فارغة ننتقل إلى النقطة 2
2- نبحث في قائمة التسجيلات (رقم الطالب في حالتك ) في مصفوفة الطلاب :
1-2  إذا تم العثور على الرقم في مصفوفة الطلاب هذا يعني أن الرقم موجود من قبل و عليه إدخال رقم آخر.
2-2  إذا لم يتم إيجاد رقم الطالب ، فهذا يعني أن الرقم جديد ، فيمكننا حينئذ إتمام تجسيل الطالب .
واضح أخي الحبيب .  
نأتي الآن إلى التطبيق ، و أنصحك باستعمال شيئ من ال Sql.

كود :

if Edit1.Text = ''  then // edit1  فارغ begin     showmessage("لابد من إخال رقم الطالب ") end else //  edit1  ليس فارغ begin     //  نتحقق من عدم وجود نفس الرقم     // نبحث في منظومة الطلاب    Query1.close ;    Query1.Paramettr('Code1').asstring := Edit1.text;    Query1.open;    if Query1.isEmpty then // بمعنى أنه لا يوجد الرقم    begin       //  نقوم بعملية إدخال الطالب الجديد           end    else //  بمعنى أن الرقم المدخل يوجد مسبقا    begin      // نقوم بإعلام المستعمل    end end

البقية عليك .

     باستعمال الموكن  Query  
     في خاصية Sql  ل query نكتب ما يلي

كود :

     Select CodeEdtudiant      From Edudiant      Where  CodeEdtudiant = :Code1 شرحك مبسط وممتاز اخي بارك الله فيك  فقط اريد ان تظيف شرح العبارة 

Query1.Paramettr('Code1').asstring := Edit1.text; اريد شرحا مفصلا انا                                                                                                                                                             

 
 اذا كان فارغ  حسب راي  فيه نقص نوعا  /يكون هذا الكود صالح فقط اذا لم يتحرك مؤشر الفارةEdit  يقوم هذا الكود بمراقبة 
 للامام وسوف تلاحض ان الكود لا يعمل edit جرب ان تحرك مؤشر الفارة في


الكود  الاصح هو 
if Trim(Edit1.Text)='' then
begin
...........
....................
end;