Round

@vitalij · Регистрация: 19.06.2011

и еще один вопрос, а как округлить до целого весь столбец таблицы?

Delphi

1 2	for Row := 1 to SG1.RowCount - 1 do SG1.Cells[3, Row] :=

@Puporev · 22.08.2011, 12:50

Delphi

1	SG1.Cells[3, Row] :=IntToStr(round(StrToFloat(SG1.Cells[3, Row])));

murderer · 22.08.2011, 16:02

Радикальное решение

Delphi

1	pdword(dword(@SG1.Cells[3,Row][1])-4)^:=pos(',',SG1.Cells[3,Row])-1;

Отсекает дробную часть.

@Puporev · 22.08.2011, 16:09

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

Отсекает дробную часть.

Просили округление, а отсечь можно и trunc().

Добавлено через 2 минуты
Или

Delphi

1	SG1.Cells[3, Row] :=copy(SG1.Cells[3, Row]),1,pos(',',SG1.Cells[3, Row])));

Добавлено через 1 минуту
Хотя с pos() может лажа выйти, если разделитель точка...

murderer · 22.08.2011, 16:33

Конечно лучше через floattostr. А за такой индусский способ как у меня могут и побить

murderer 4165 / 1817 / 216 Регистрация: 06.10.2010 Сообщений: 4,074
	22.08.2011, 16:33	5
	Конечно лучше через floattostr. А за такой индусский способ как у меня могут и побить 0