how to store and extract integer value to CheckListBox
How to add and then extract integer value to CheckListBox?
I did something like this:
But how to extract ID value?
I Try this:
I get error: too many parameters
I did something like this:
if DS_Stawki.Active then DS_Stawki.Close;
    DS_Stawki.Open;
  while not DS_Stawki.Eof do
  begin             Â
  CheckListBox1.Items.AddObject(<DS_STAWKI."string">,TObject(<DS_STAWKI."ID">));
  DS_Stawki.Next;                                 Â
  end;
But how to extract ID value?
I Try this:
for i:= 0 to  CheckListBox1.Items.Count -1 do
if CheckListBox1.Checked[i] then
begin
    ID := Integer(CheckListBox1.Items.Objects[i]);
end;
I get error: too many parameters
Comments
It's very needed!
ID := StrToInt( VarToStr( CheckListBox1.Items.Objects))
Mick