окруление

← →
zep © (2004-03-10 21:50) [0]

вопрос такой число хранится в real перед выводом его в edit нужно округлить его до целого
Зарание спасибо.

← →
Алхимик © (2004-03-10 21:52) [1]

Round + F1

← →
zep © (2004-03-10 22:04) [2]

а попадробнее можно

← →
Warrior © (2004-03-10 22:06) [3]

> а попадробнее можно

1. Написать в Delphiйском редакторе кода "Round"(без кавычек).
2. Установить каретку на этом слове
3. Нажать F1 на клавиатуре

← →
zep © (2004-03-10 22:10) [4]

нет мнебы хоть какой нить примерчик а то я англейском не очень силен

← →
Никто © (2004-03-10 22:15) [5]

ну да.... а примерчик из хелпа ну совсем не устраивает -(

Edit1.Text:=CurrToStr(Round(123.45));

[4] нет мнебы хоть какой нить примерчик а то я англейском не очень силен

А дальше как жить собираешься?
Синтаксис:
function Round(X: Extended): Int64;
Описание
В Delphi, функция Round округляет дробное значение до целочисленного...
Примерчик:
var S, T: string; begin Str(1.4:2:1, T); S := T + " rounds to " + IntToStr(Round(1.4)) + #13#10; Str(1.5:2:1, T); S := S + T + " rounds to " + IntToStr(Round(1.5)) + #13#10; Str(-1.4:2:1, T); S := S + T + " rounds to " + IntToStr(Round(-1.4)) + #13#10; Str(-1.5:2:1, T); S := S + T + " rounds to " + IntToStr(Round(-1.5)); MessageDlg(S, mtInformation, [mbOk], 0, mbOk); end;

спасибо всем

окруление Найти похожие ветки