+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية المقارنة بين محتويات edit (/showthread.php?tid=7627)
كيفية المقارنة بين محتويات edit - elzawey2020 - 18-03-2016
السلام عليكم ورحمه الله وبركاته
كيف حالكم جميعاً
شباب عندي ثلاث مكونات 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:='غير صحيحة'
RE: كيفية المقارنة بين محتويات edit - Agmcz - 18-03-2016
وعليكم السلام
بما أنك الأرقام بدون فاصلة استخدم StrToInt بدل strtofloat للتحويل.
RE: كيفية المقارنة بين محتويات edit - bassem_43 - 18-03-2016
السلام عليكم
جرب هدا
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;
RE: كيفية المقارنة بين محتويات edit - elzawey2020 - 19-03-2016
بارك الله فك اخي باسم
نعك الكود نفع معي
شكرا لكم جزيل
وشكر لاخي Agmcz