From: Remko B. <rem...@us...> - 2003-02-09 18:56:33
|
Update of /cvsroot/jvcl/rm/source In directory sc8-pr-cvs1:/tmp/cvs-serv3504 Modified Files: JvSpin.pas Log Message: Cleaned Index: JvSpin.pas =================================================================== RCS file: /cvsroot/jvcl/rm/source/JvSpin.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** JvSpin.pas 6 Feb 2003 21:53:05 -0000 1.2 --- JvSpin.pas 9 Feb 2003 18:56:29 -0000 1.3 *************** *** 25,28 **** --- 25,29 ---- Known Issues: + -----------------------------------------------------------------------------} *************** *** 37,53 **** interface [...1270 lines suppressed...] ! case ValueType of ! vtFloat: ! begin ! if FDisplayFormat <> EmptyStr then ! try ! Result := StrToFloat(TextToValText(Text)); ! except ! Result := FMinValue; ! end ! else ! if not TextToFloat(PChar(RemoveThousands(Text)), Result, fvExtended) then ! Result := FMinValue; ! end; ! vtHex: ! Result := StrToIntDef('$' + Text, Round(FMinValue)); ! else {vtInteger} ! Result := StrToIntDef(RemoveThousands(Text), Round(FMinValue)); ! end; except if ValueType = vtFloat then |