Преобразование чисел

[artemavd]

Я использовал такую функцию FloatToStrF(c1,ffGeneral,0,2). Работает. Тип данных real. Но у меня не получается сложить например две ячейки, которые рассчитывались испольозуя эту функцию. Короче, когда я складываю, то у меня появляется ошибка типа "3,5 is not value integer" и сложение не происходит. Что мне надо сделать чтобы работало? Спасибо)

[Баламут]

А в системных настройках что стоит в качестве десятичного разделителя?

[artemavd]

Но почему не работает тогда функция округления? Round например? Или Int?

[Stilet]

Но почему не работает тогда функция округления?

А как ты ее пользуешь?
Выставь DecimalSeparator в символ которы разделят дробные и десятичные.

[artemavd]

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

А как ты ее пользуешь?
Выставь DecimalSeparator в символ которы разделят дробные и десятичные.

первый раз о таком слышу(. Как это сделать в коде?

[Квэнди]

о у меня появляется ошибка типа "3,5 is not value integer"

Потому что действительно 3,5 не целое число.
Вы пытаетесь присвоить целому числу дробное.

[Stilet]

хм... Тут можно только одно сказать: Код в студию.

[artemavd]

Это код, который получает число в виде десятичной дроби и выводит его в Label:

//////////////////////////////////////////////////////////////////////////////////////
  a1 := StrToFloat(Edit1.Text);
  b1 := StrToFloat(Edit2.Text);
  c1 := StrToFloat(Edit3.Text);
  d1 := StrToFloat(Edit4.Text);
    k1 := (a1 +  b1 +  c1 +  d1); //количество оценок
    if k1<>0 then f1 := (2 * a1 + 3 * b1 + 4 * c1 + 5 * d1)/k1;  //расчет
      Label7.Caption:='' + FloatToStrF(f1,ffGeneral,0,2);
//////////////////////////////////////////////////////////////////////////////////////

А это код, который ищет сумму четырех значений, которые рассчитываются по коду, приведенному выше. Складывается четыре раза. Когда у меня в коде в самом верху было вместо FloatToStrF(f1,ffGeneral,0,2) записано FloatToStr(Round(f1)), то второй код прекрасно работал и складывал все правильно целые числа, а вот с десятичными не получается. Мне то надо, чтобы он складывал десятичные и округлял. Код выложил. Какие соображения?)

From Stilet: Я вроде уже тебя предупреждал о корректном оформлении поста? Код оформляй спецкнопкой (#)

[Квэнди]

объявления показывай, что какого типа объявлено

[artemavd]

Stilet, извини меня. Я не до конца еще понял как тут правильно коды оформлять. Вот так у меня объявлено все:
#
var
a1,b1,c1,d1,k1,f1:real;
begin
a1 := StrToFloat(Edit1.Text);
b1 := StrToFloat(Edit2.Text);
c1 := StrToFloat(Edit3.Text);
d1 := StrToFloat(Edit4.Text);
k1 := (a1 + b1 + c1 + d1); //количество оценок
if k1<>0 then f1 := (2 * a1 + 3 * b1 + 4 * c1 + 5 * d1)/k1; //расчет
Label7.Caption:='' + FloatToStrF(f1,ffGeneral,0,2);
#
А это код, который ищет сумму четырех значений, которые рассчитываются по коду, приведенному выше:
#
var
summ:real;
begin
summ:=(StrToInt(SG3.cells[2,1])+StrToInt(SG3.cells[8,1])+StrToInt(SG3.cells[14,1])+StrToInt(SG3.cells[20,1]))/4;
SG3.Cells[26,1]:=FloatToStr(Round(summ));
#
Складывается четыре раза. Когда у меня в коде в самом верху было вместо FloatToStrF(f1,ffGeneral,0,2) записано FloatToStr(Round(f1)), то второй код прекрасно работал и складывал все правильно целые числа, а вот с десятичными не получается. Мне то надо, чтобы он складывал десятичные и округлял. Код выложил. Какие соображения?)