View Issue Details

IDProjectCategoryView StatusLast Update
0004529JEDI VCL00 JVCL Componentspublic2008-10-18 03:45
ReporterwhfAssigned ToAHUser 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.36 
Summary0004529: TJvInterpreter have a Bug when use Set property
DescriptionHi
  I use this Code in TJvInterpreter to Change Font.Style property,but Find a
Bug:
Font.Style := Font.Style + [fsBold];

function TJvInterpreterExpression.SetExpression1: Variant;
var
  V1: Variant;
begin
  Result := 0;
  while True do
  begin
    case TTyp of
      ttIdentifier, ttInteger:
        begin
          if TTyp = ttInteger then
            Result := Result or Integer(Token)
          else
          begin
            FCurrArgs.Clear;
            InternalGetValue(nil, 0, V1);
            if VarType(V1) <> varInteger then // if not (VarType(V1) in
[varSmallint,varInteger,varShortInt,varWord]) then
              JvInterpreterError(ieIntegerRequired, PosBeg);
            Result := Result or 1 shl Integer(V1);
          end;
          NextToken; { skip ',' }
          if TTyp = ttCol then
            NextToken
          else
          if TTyp = ttRS then
            Break
          else
            ErrorExpected(''']''');
        end;
      ttRS:
        Break;
    else
      Break;
    end;
  end;
  TVarData(Result).VType := varSet;
end;

TagsNo tags attached.

Activities

obones

2008-10-13 04:56

administrator   ~0014844

Please provide the zipped sources of a sample application showing this, along with a detailed explanation of what you think is wrong here.

whf

2008-10-13 21:45

reporter   ~0014854

This a Demo
I Have Find the Bug Code and Try Modify

obones

2008-10-15 02:20

administrator   ~0014861

what?
I don't see any file and don't undersatnd your message.

2008-10-15 02:51

 

testintr.rar (11,939 bytes)

whf

2008-10-15 02:51

reporter   ~0014862

sorry,this is demo

AHUser

2008-10-18 03:45

developer   ~0014880

Fixed in SVN.

Issue History

Date Modified Username Field Change
2008-10-13 03:17 whf New Issue
2008-10-13 04:56 obones Note Added: 0014844
2008-10-13 04:56 obones Status new => feedback
2008-10-13 21:45 whf Note Added: 0014854
2008-10-15 02:20 obones Note Added: 0014861
2008-10-15 02:51 whf File Added: testintr.rar
2008-10-15 02:51 whf Note Added: 0014862
2008-10-18 03:45 AHUser Status feedback => resolved
2008-10-18 03:45 AHUser Fixed in Version => Daily / SVN
2008-10-18 03:45 AHUser Resolution open => fixed
2008-10-18 03:45 AHUser Assigned To => AHUser
2008-10-18 03:45 AHUser Note Added: 0014880