Округление числа с точкой

[artemavd]

Добрый вечер! Не могу округлить число 30.9999 до 31. Пробывал все функции: Round, RoundTo, Trunc, но не получилось. Как округлять такого рода числа?
Если делаю так:

procedure TForm1.Button4Click(Sender: TObject);
var
 a: real;
begin
// a:=Strtofloat(Form1.label16.caption);
 Form1.Label17.Caption:=FLoatToStr(Round(30.9999));
end;

то работает, округляет правильно. А если так:

procedure TForm1.Button4Click(Sender: TObject);
var
 a: real;
begin
 a:=Strtofloat(Form1.label16.caption);
 Form1.Label17.Caption:=FLoatToStr(Round(а));
end;

то выдается ошибка, что "30.9999 is not valid integer".

[mihali4]

Во-первых, у вас переменная "а" - русская буква.
Во-вторых - почему для integer вы используете FLoatToStr ?
Хотя это и не влияет.
Все нормально работает - проверил.

[artemavd]

Все нормально работает - проверил.

Какой из вариантов Вы проверили? И с чего вы взяли, что "а" русская?)

[MalCer]

artemavd, ваш 2-ой способ работает. У вас не получалось может быть из-за того что вы ставили в label16.caption точку, а нужно запятую

[spamer]

procedure TForm1.Button1Click(Sender: TObject);
var
 a : Real;
begin
 a:=Strtofloat(label1.caption);
 Caption:=FLoatToStr(Round(a));
end;

В label1.caption введите 30,9999

EDIT:
Не много опоздал, MalCer уже ответил.

[_Dmitry]

DecimalSeparator:='.';

это если нужна точка.

[artemavd]

Выркрутился так :

 //получаю первые четыре символа, по ним и округляю
 Form1.Label16.Caption:=Form1.Label11.Caption[1] +                 Form1.Label11.Caption[2] +',' +Form1.Label11.Caption[4];

procedure TForm1.Button4Click(Sender: TObject);
var
 t: real;
begin
 t:=Strtofloat(Form1.label16.caption);
 Form1.Label17.Caption:=FLoatToStr(Round(t));
end;

Теперь округляется. А как сделать, чтобы программа не ругалась на то, чтоо там стоит: точка или запятая? Предполагаю, что можно сделать программно через замену точки на запятую, но не делал этого.

[_Dmitry]

Для всей системы меняем здесь: Язык и региональные стандарты -> Настройка -> Разделитель целой и дробной части

Если нужно изменить только для вашей программы, то меняем значение переменной DecimalSeparator (можно в обработчике события FormCreate)

[mihali4]

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

Какой из вариантов Вы проверили? И с чего вы взяли, что "а" русская?)

Оба.
С того, что я скопировал ваш код и Дельфи меня обругала.
Поменял на латинскую - все нормально.

[artemavd]

Спасибо всем! Всем поставил "+"!