delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمه الله وبركاته
كيف حالكم جميعاً
شباب عندي ثلاث مكونات 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:='غير صحيحة' 

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

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

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; 

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

elzawey2020

Agmcz

bassem_43

elzawey2020