View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0001634JEDI VCL00 JVCL Componentspublic2004-04-14 04:542004-04-14 11:16
ReporterborzovAssigned Touser72 
PrioritynormalSeveritycrashReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001634: Error in TJvValidateEdit : Value := 22,35. Result = 2235
DescriptionI can't set double value to TjvValidateEdit.value

function TJvCustomValidateEdit.getValue ->

      Result := StrToFloatDef(FEditText, 0); ->

  lStr := StrStripNonNumberChars(Str); ->


    if CharIsNumber(Ch) then ->


function CharIsNumber(Ch: AnsiChar): Boolean;
begin
  Result := Ch in ['0'..'9']; -?????
end;

may be, need:
  result := (Ch in ['0'..'9']) or (ch = DecimalSeparator); ?



Additional Information  object EditSumma: TJvValidateEdit
    Left = 272
    Top = 64
    Width = 145
    Height = 23
    Cursor = crHandPoint
    AutoSize = False
    CheckChars = '0123456789,'
    CriticalPoints.CheckPoints = cpNone
    CriticalPoints.ColorAbove = clBlue
    CriticalPoints.ColorBelow = clRed
    DecimalPlaces = 2
    DisplayFormat = dfFloat
    EditText = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    PasswordChar = #0
    TabOrder = 3
    Text = '0,00'
    Value = 0.000000000000000000
    OnChange = EditSummaChange
  end
TagsNo tags attached.

Activities

user72

2004-04-14 11:16

  ~0003856

This has already been fixed. Please get the latest version from CVS.

Issue History

Date Modified Username Field Change
2004-04-14 04:54 borzov New Issue
2004-04-14 11:16 user72 Status new => resolved
2004-04-14 11:16 user72 Resolution open => fixed
2004-04-14 11:16 user72 Assigned To => user72
2004-04-14 11:16 user72 Note Added: 0003856