tabaprg
شنبه 19 اسفند 1391, 18:57 عصر
با سلام خدمت اساتید دلفی
یه سوال قبلا کردم کسی جواب نداد نمی دونم سوالم کجا رفته؟ حالا بماند.
میخواستم بدونم چه جوری تبدیل نوع double به single انجام میشه من کدمو مینویسم و از کسانیکه در این زمینه اطلاعات دقیق دارن کمک میخوام.
procedure TForm1.btn1Click(Sender: TObject);
var
d1,d2:Double;
s1,s2:Single;
begin
d1 := 75.3421115;
d2 := 75.3421555;
s1 := d1;
s2 := d2;
ShowMessage(FloatToStr(s1)+' ' + FloatToStr(s2));
end;
s1 output-->75.3421096801758
s2 output-->75.342155456543
//------------------------------------
shoud be output:
s1 --> 75.34211
s2 --> 75.34216
یه سوال قبلا کردم کسی جواب نداد نمی دونم سوالم کجا رفته؟ حالا بماند.
میخواستم بدونم چه جوری تبدیل نوع double به single انجام میشه من کدمو مینویسم و از کسانیکه در این زمینه اطلاعات دقیق دارن کمک میخوام.
procedure TForm1.btn1Click(Sender: TObject);
var
d1,d2:Double;
s1,s2:Single;
begin
d1 := 75.3421115;
d2 := 75.3421555;
s1 := d1;
s2 := d2;
ShowMessage(FloatToStr(s1)+' ' + FloatToStr(s2));
end;
s1 output-->75.3421096801758
s2 output-->75.342155456543
//------------------------------------
shoud be output:
s1 --> 75.34211
s2 --> 75.34216