تحويل كلم الى ميل

[أبو معاذ]

و عليكم السلام ورحمة الله وبركاته.

لدينا 1 كم = 0,621371  ميل.

نقوم بإدخال القيمة بالكيلومتر في Edit1  و نعرض النتيجة في Edit2

PHP كود :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Edit2.Text := FloatToStr( StrToFloat(Edit1.text)* 0.621371) ;
end; 


لا ننسى فقط أن نقوم بإختبار القيمة المدخلة ، حيث أن المستعمل لا يمكن أن يدخل إلى الأرقام أو الفاصلة العشرية.

في الحدث KeyPress  الخاص ب Edit1  نكتب التعليمة التالية :

PHP كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;
  if Key = DecimalSeparator then
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then
      Key := #0;
end;