Округление цифр СО5/СО6
Постановка задачи: Необходимо округлить число выводимо на печать в СО5/6
Для этого достаточно использование слеующих функций:
STRTOFLOAT,
ROUND,
ONLYDIGIT (описание не привожу оно есть в дизайнере)
Допустим у нас есть число
а ввиде строки и его нам необхо округлить
Цитата:
begin
Memo:= ROUND(STRTOFLOAT(ONLYDIGIT(a)))
end
|
Если необходимо округлить размер, то предварительно необходимо его разбить на части, а потом по желанию собрать обратно см. топик выше.
Приведенный выше код не притендует на оригинальность и не является оптимальным, а лишь демонстрирует возможности встроенного дизайнера.
Комбинированный вид
