Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
окруление Найти похожие ветки
← →
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]ну да.... а примерчик из хелпа ну совсем не устраивает -(
← →
Bulanov © (2004-03-10 22:17) [6]Edit1.Text:=CurrToStr(Round(123.45));
← →
Алхимик © (2004-03-10 22:21) [7][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;
← →
zep © (2004-03-10 22:23) [8]спасибо всем
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.03 c
