29-06-2018, 12:44 PM
السلام عليكم ورحمة الله وبركاته
اريد رايكم في هده الطريقة للتاكد من المدخلات في edit
حتى تمنع من ادخال الاحرف وفي نفس الوقت التاكد من القيمة حتى لايحصل ادخال قيم خاطئة
مع العلم انها تنمع حتى النسخ واللصق
فقط قم بتعريف متغير vakue في الاعلى حتي يحتفظ باخر قيمة صحيحة ادخلت في ال edit
ثم في الحدث onchenge لل edit اضف التالي
كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text = '') then
value := 0;
if not TryStrToFloat(Edit1.Text, value) then
Edit1.Text := FloatToStr(value);
Edit1.SelStart := Length(Edit1.Text);
end;