كيف أفصل خيارات RadioGroup

[Ramzi2]

[COLOR="black"][COLOR="black"][COLOR="black"]مرحبا جميعا

أخوكم مبتدأ في البرمجة لا تضحكوا على استفساري
لدي استفسار : زر واحد للضغط وثلاثة خيارات RadioGroup
كل خيار من RadioGroup يتحقق من الارقام في edit و يظهر النتيجة في labl

لم تفلح معي
case ولا if مع اني برمجت كل خيار من RadioGroup في جزء بين بيقين واند
الهدف هو عمل كل خيار من RadioGroup على حدى
كيف أضع شرط التحقق من الرقم في edit واظهار النتيجة فيlabl دون خلط البرنامج
لأن البرنامج عاد يخلط في النتيجة وخلطني معاه:confused:[/COLOR][/COLOR][/COLOR]

[الكاسر الآخر]

كود :

if RadionButton1.checked Then begin // Code end else if RadioButton2.checked Then begin // code end else if RadioButton3.checked Then begin //code end

[Agmcz]

أرفق مثال هنا

[Ramzi2]

أرفق مثال هنا

مثال

كود :

procedure TForm1.Button1Click(Sender: TObject); begin if RadioGroup1.ItemIndex =0 then if StrToInt(Edit1.Text) in [0..100] then Edit1.Color := clGreen else Edit1.Color := clRed; if StrToInt(Edit1.Text) in [0..100] then begin Label2.Caption:='correcte'; Label2.Font.Color := clGreen; end else begin Label2.Caption:='incorrecte'; Label2.Font.Color := clRed; end; begin if RadioGroup1.ItemIndex =1 then if StrToInt(Edit1.Text) in [101..200] then Edit1.Color := clGreen else Edit1.Color := clRed; if StrToInt(Edit1.Text) in [101..200] then begin Label2.Caption:='correcte'; Label2.Font.Color := clGreen; end else begin Label2.Caption:='incorrecte'; Label2.Font.Color := clRed; end; begin if RadioGroup1.ItemIndex =2 then if StrToInt(Edit1.Text) in [201..255] then Edit1.Color := clGreen else Edit1.Color := clRed; if StrToInt(Edit1.Text) in [201..255] then begin Label2.Caption:='correcte'; Label2.Font.Color := clGreen; end else begin Label2.Caption:='incorrecte'; Label2.Font.Color := clRed; end; end; end; end; end.

[Ramzi2]

الحمد لله واخيرا وجدت الحل

شكرا لكم جميعا

[COLOR="black"] [COLOR="black"][COLOR="black"]لو تكرمتم ماذا أفعل لكل لكي لا ينفذ البرنامج الا بعد ادخال جميع قيم edit الاربعة

يعني ادا كانت قيمة edit واحدة فارغة لا ينفذ

وشكرا [/COLOR][/COLOR] [/COLOR]

أو رسالة showmessage

تقول' أدخل كل قيم edit '

[rahiche]

كود :

if edit1.text='' then showmessage('يجب ملأ الحقل')