|
#1
|
|||
|
|||
округление
Подскажите пожалста...
Я округляю полученные цифры в стрингриде так: Код:
Form3.StringGrid1.Cells[0,i]:=FloatToStr(RoundTo(w, -2)); Form3.StringGrid1.Cells[1,i]:=FloatToStr(RoundTo(Re, -2)); потом мне нужно снова обратиться к этим цифрам Код:
Pobsie:=Pgeom+strtofloat(StringGrid5.Cells[4,i])+strtofloat(StringGrid4.Cells[3,i])+strtofloat(StringGrid3.Cells[1,i])+strtofloat(StringGrid3.Cells[2,i])+strtofloat(StringGrid2.Cells[5,i])+strtofloat(StringGrid1.Cells[2,i]); |
#2
|
|||
|
|||
Может это поможет :
Код:
function _StrToExtended(Sx:string; DefR : Extended) : Extended; Var Res : integer; begin Sx:=Trim(Sx); Sx:=Replace_Char_In_String(Sx,ORD(','),ORD('.')); Val(Sx,Result,Res); if Res<>0 then Result:=DefR; end; function Replace_Char_In_String(Sx : string; asciCodeOLD, asciCodeNEW : integer) : string; {Заменить символы в строке} Var i : integer; begin Result:=Sx; for i:=1 to length(Result) do begin if ORD(Result[i])=asciCodeOLD then Result[i]:=CHR(asciCodeNEW); end; end; |
#3
|
||||
|
||||
точки запятыми меняйте при конвертирование в Float, или запятые точками, непомню
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
|||
|
|||
Подскажите.... может функция округления плохо работать...????
Пишу везде одинаково, но почему то все округляет нормально, а один столбец превращает в нули, пробовала разные способы округления Код:
Form3.StringGrid5.Cells[0,i]:=FloatToStrF(w, ffNumber,15,2); Form3.StringGrid5.Cells[1,i]:=FloatToStrF(KsiVx, ffNumber,15,2); Form3.StringGrid5.Cells[2,i]:=FloatToStrF(KsiVix, ffNumber,15,2); Form3.StringGrid5.Cells[3,i]:=FloatToStrF(KsiPl,ffNumber,15,2); Form3.StringGrid5.Cells[4,i]:=FloatToStrF(Pfil, ffNumber,15,2); |