Constand and CASE types do not match

[jmLandsvik]

is the error when executing this code

Code: [Select]

procedure TForm1.DBNavigatorClick(Sender: TObject; Button: TDBNavButtonType);
begin
  with DBNavigator do
  BEGIN
    case Button OF
         nbFirst,
         nbPrior,
         nbNext,
         nbLast,
         nbInsert,
         //nbDelete,
         nbEdit,
         //nbPost,
         nbCancel,
         nbRefresh:
           {$ifDEF _DEBUG_}
             ListBox.Items.Add(GetEnumName(TypeInfo(Button), INTeger(Button)));
               ListBox.ItemIndex := ListBox.Items.Count -1; //WORKS NOT
             //ShowMessage(GetEnumName(TypeInfo(Button), INTeger(Button)));
           {$endIF}
         nbPost,
         nbDelete:
           BEGIN
             Sqlite3Dataset.ApplyUpdates;
             Sqlite3Dataset.Refresh;
             {$ifDEF _DEBUG_}
               ListBox.Items.Add(GetEnumName(TypeInfo(Button), INTeger(Button)));
               ListBox.ItemIndex := ListBox.Items.Count -1 ; //WORKS
               //ShowMessage(GetEnumName(TypeInfo(Button), INTeger(Button)));
             {$endIF}
           end;
    end;
  end;
end;                        

Compilation stops at the LIstBox.ItemIndex := ... line.

The second ListBox.ItemIndex := .... works fine, or IF I put the exact same line above the "with DBNavigator" line, it works...

Is it a bug, or do I do smt. I should not do ?

tnx.

regards
Jan Magne

[eny]

The code fragment is too short to draw any final conclusions.
My crystal ball says you are using this code in an OnClick event method of the DBNavigator.
If so, then you don't need 'with DBNavigator do'.
For my config (see below) it all works as expected.

[marcov]

Probably dbnavigator also has a property button

[jmLandsvik]

UPDATE:
(added the full procedure)

Sorry, the heading of the procedure was missing, and then I added the second ...ItemIndex... line, and THAT worked! ???


tnx. for the replyes so far...

//JM

[jmLandsvik]

The code fragment is too short to draw any final conclusions.
My crystal ball says you are using this code in an OnClick event method of the DBNavigator.
If so, then you don't need 'with DBNavigator do'.
For my config (see below) it all works as expected.

Tnx. for reply Eny...
Yeah, the with ...do was unnessesary...

But the first ...ItemIndex... still says:
Error: Constant and CASE types do not natch.

//JM

[eny]

add begin...end:

Code: Pascal  [Select][+][-]

1.   nbRefresh:
2.     begin
3.            {$ifDEF _DEBUG_}
4.              ListBox.Items.Add(GetEnumName(TypeInfo(Button), INTeger(Button)));
5.                ListBox.ItemIndex := ListBox.Items.Count -1; //WORKS NOT
6.              //ShowMessage(GetEnumName(TypeInfo(Button), INTeger(Button)));
7.            {$endIF}
8.     end;

Probably dbnavigator also has a property button

If it's a TDBNavigator, it hasn't.

[jmLandsvik]

tnx eny 

sure...
the ifdef/endif started with only one line, and then it grew.
got distracted by the begin - end "look" 

Yes, it is a TDBNavigator...

marcov:
Did you mean ....property button,
or, button property?

//JM