[EleGant]

Подскажите плиз...в поиске не нашел...
Нужно убрать числа после запятой вызванные при деление....например у меня в Лайбеле выводиться "5.78945482319".
А хотелось бы убрать после точки все цифры..как сделть?

[Ama]

Если "Х" твоя переменная, то Round(X) будет равно 6, а Trunc(X) будет равно 5. Вот и все проблемы.

[Страдалецъ]

Вариантов много, один вам уже дали.
Вот второй:

Код:

1	Label1.Caption := Format('%2.0f', [5.12345]);

[TOJluK]

Да, но при Round(1.5) = 2 и при Round(2.5) = 2.
Где- то стырил функцию "правильного" округления

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function RoundEx(X: Double; Precision: Integer ): Double;  // округлить не по дефолту { Precision : 1 - до целых 10 - до десятых 100 - до сотых ... } var   ScaledFractPart, Temp: Double; begin   ScaledFractPart := Frac(X) * Precision;   Temp := Frac(ScaledFractPart);   ScaledFractPart := Int(ScaledFractPart);   if Temp >= 0.5 then     ScaledFractPart := ScaledFractPart + 1;   if Temp <= -0.5 then     ScaledFractPart := ScaledFractPart - 1;   RoundEx := Int(X) + ScaledFractPart / Precision; end;

[EleGant]

Сообщение от Ama

Если "Х" твоя переменная, то Round(X) будет равно 6, а Trunc(X) будет равно 5. Вот и все проблемы.

Вот этот способо пригодился!! Большое спасибо всем!