Перевод строки "1984.45" в число и выделение целой части

[webber9989]

Здравствуйте!
Запутался напрочь с типами переменных.
Задача такова: из строки "1984.45" сделать число "1984"

Мои наброски:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:Extended;
begin
s:='1898,98';
i:=Int(StrToFloat(s));
ShowMessage(FloatToStr(i));
end;

Сижу читаю литературу, вычитал такое:

Int - Целая часть числа с плавающей точкой
Trunc - Целая часть числа с плавающей запятой

Так как у меня из файла берутся числа в таком формате:
3453.45
2367.87
4567.34
ну и т.д.
Я выбрал Int, так как там число с плавающей точкой

Но у меня ничего не работает. Что тип Int, что Trunc, воспринимают только запятую.

Вот ошибка если с точкой:


Как быть, помогите разобраться пожалуйста.
Я думаю что мой способ древний и корявый, может вы предложите что-то посвежее. Буду рад любой помощи

[sariman]

Попробуйте вместо Trunc, использовать Round().

[raxp]

decimalseparator:= '.' спасут отца русской демократии.

[webber9989]

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

Попробуйте вместо Trunc, использовать Round().

Не вариант, мне в принципе не очень важно, будет ли обрезаться всё что после запятой или округляться, дело в том что ошибку это мою не исправит((

[Аватар]

Вместо изменения decimalseparator можно просто заменять точку на запятую в исходных данных перед преобразованием (функция StringReplace). Настройка decimalseparator понадежней - не будет зависимости от настроек винды

[webber9989]

Сделал пока что замену "." на ","

procedure TForm5.Button2Click(Sender: TObject);
var
  s,d:string;
  i:Extended;
begin
 s:='1898.98';
 d:=StringReplace(s, '.', ',', [rfReplaceAll]);
 i:=Int(StrToFloat(d));
 ShowMessage(FloatToStr(i));
end;

Нужно продолжать дальше программу и тестировать её...

Но с точки зрения кода и так сказать, актуальности, это всё через попу(
Если есть какие-нибудь актуальные и менее громосткие, во всех отношениях, решения, прошу помочь хотя бы направлением в лучшую сторону.

[webber9989]

Сообщение от Аватар

Вместо изменения decimalseparator можно просто заменять точку на запятую в исходных данных перед преобразованием (функция StringReplace). Настройка decimalseparator понадежней - не будет зависимости от настроек винды

Спасибо большое)) С разрывом в 5 минут пришли к одному и тому же решению Я так понимаю что больше вариантов, так сказать более легких, нету) Ну что же, всем спасибо за ценные советы и ответы.

[raxp]

decimalseparator/

[FaTaL]

Не мучайте компилятор и сделайте всё через DecimalSeparator. Так будет намного правильней.

[s-andriano]

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

Но с точки зрения кода и так сказать, актуальности, это всё через попу(
Если есть какие-нибудь актуальные и менее громосткие, во всех отношениях, решения, прошу помочь хотя бы направлением в лучшую сторону.

Чтобы ответить на этот вопрос, следует разобраться в причинах происходящего.
В разных языках в качестве десятичного разделителя могут использоваться различные символы.
В Вашем случае в системе = десятичный разделитеть ",", а в данных - ".".
Другими словами, с точки зрения системы, данные содержат ошибку в формате записи числа.
Обнаружение, а тем более исправление ошибок - занятие достаточно сложное в общем случае.
В данном случае исправлять ошибку можно двумя способами:
1. Объяснить системе явно, какой именно символ следует считать десятичным разделителем.
2. Заменить в данных имеющийся десятичный разделитель на тот, который хочет получить система.
Оба способа уже были Вам предложены.
От себя могу добавить, что желательно сделать так, чтобы Ваша программа была нечувствительна ни к настройкам системы (ведь Вашу программу возможно потребуется запускать на другом компьютере), ни к особенностям представления данных (ведь может оказаться, что в другой раз Вам предложат файл с запятой в качестве разделителя).
А для этого, возможно, придется комбинировать оба способа.
Только следует учесть, что существует вариант записи чисел, при котором дробная часть отделяется точкой, а тысячи, миллионы и пр. отделяются запятой.

PS. Кстати, если задача стоит именно так: "присвоить целой переменной целую часть числа, записанного строкой", то решить ее можно гораздо проще:
1. Усечь строку до первого нецифроволо символа.
2. Перевести строку в число.