RoundTo

[dreary999]

Подскажите, как при сравнении данных из таблицы правильно прописать округление с помощью roundto ?

var
  i: integer;
begin
for i := 1 to n3 do
  if itog[10,i] = FloatToStr(StrToFloat(itog[10,i]) - StrToFloat(itog[9,i]) + StrToFloat(itog[15,i]))
  then
  begin itog[16,i] := 'Совпадает'; StringGrid3.Cells[6,i] := itog[16,i]; end
    else begin itog[16,i] :=  'Не совпадает'; StringGrid3.Cells[6,i] := itog[16,i]; end;
end;

Округлить нужно подчеркнутое. Причем в меньшую сторону при любом значении знаков после запятой.

[dreary999]

Предпочтительнее даже было бы округлить в меньшую сторону все сравниваемые ячейки

[Аватар]

Trunc отсекает знаки после десятичной точки

[dreary999]

Не могли бы Вы показать использование Trunc на моем примере?

[dreary999]

  begin

 
for i := 1 to n3 do


  if floattostr(Trunc(strtofloat(itog[10,i]))) = FloatToStr(Trunc(StrToFloat(itog[10,i])) - trunc(StrToFloat(itog[9,i])) + trunc(StrToFloat(itog[15,i])))
  then
  begin itog[16,i] := 'Совпадает'; StringGrid3.Cells[6,i] := itog[16,i]; end
    else
    begin itog[16,i] :=  'Не совпадает'; StringGrid3.Cells[6,i] := itog[16,i]; end;
end;

Вышло что то вроде этого... Сейчас тестирую.

[Аватар]

if Trunc(strtofloat(itog[10,i])) = Trunc(StrToFloat(itog[10,i])) - trunc(StrToFloat(itog[9,i])) + trunc(StrToFloat(itog[15,i]))

[dreary999]

Большое спасибо, все работает