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

[Team dz]

سلام عليكم  

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



330448/ 1.609344= 205330,86773

اريد  تعديل  الكود 

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
   a,b:integer;
  begin

  a:=StrToInt(Edit2.Text);
  b:=StrToInt( '1.609344');

  Edit1.Text:=floattostr(a/b);


  end; 


[أبو معاذ]

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

لدينا 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; 


[Team dz]

شكرا  لك الدلة تعمل بشكل جيدا 

لكن وجهت مشكلة عند الفاصة

مثال 

150247  عند تحويلها  تطلع النتيجة بالميل  93359,0

اريد حذف الفاصلة التى خلف النتيجة

نتيجة  93359  فقط

[أبو معاذ]

استعمل الدالة Truncateو هذا مثالها:


https://www.delphibasics.co.uk/Method.ph...d=Truncate

[Team dz]

برك الله فيك تم تعديل الكود بدون فاصلة 

PHP كود :

edit2.Text:=FloatToStr(int(StrToFloat(Edit2.Text)))