كيفية المقارنة بين محتويات edit

[elzawey2020]

السلام عليكم ورحمه الله وبركاته
كيف حالكم جميعاً
شباب عندي ثلاث مكونات edit1 edit2 edit3
المكون edit1  به القيمة 50
اريد ان اقارن بين محتوي edit2  التي يكتبها المستخدم أصغر من القيمة الموجوده في edit1  أو كانت القيمة المكتوبة في edit2  حرف مثلا ( m  )
يكتب في edit3  قيمة صحيحة واذا كان غير ذلك أصغر من 50 أو حرف m  يكتب قيمة غير صحيحة

توصلت لهذا الكود ولكن تحدث مشكلة عند كتابة حرف m

PHP كود :

if(strtofloat(Edit2.Text)<=(strtofloat(Edit1.Text))) or (Edit1.Text='غ') then
begin
Edit3.Text.text:='صحيحة'
end
else begin
Edit3.Text.text:='غير صحيحة' 


[Agmcz]

وعليكم السلام
بما أنك الأرقام بدون فاصلة استخدم StrToInt بدل strtofloat للتحويل.

[bassem_43]

السلام عليكم
جرب هدا

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
begin
    try
  if(Edt2.Text='m')  then
   Edt3.Text:='صحيحة'
 else
 if(strtofloat(Edt2.Text)<=(strtofloat(Edt1.Text)))  then
  begin
   Edt3.Text:='صحيحة'  ;
  end
  else begin
   Edt3.Text:='غير صحيحة'  ;
 end;

 except
 ShowMessage('error');
end;
end; 


[elzawey2020]

بارك الله فك اخي باسم
نعك الكود نفع معي
شكرا لكم جزيل
وشكر لاخي Agmcz