Hello les gens

Est-ce que vous avez remarqué quelques problèmes avec les class helper en FMX sous Seattle ?
Par exemple, j'ai souvent utilisé l'astuce consistant à mettre un entier sous forme d'objet dans une combobox.
Typiquement, une liste de noms et d'id en base de données.
Avec le code suivant qui ne m'a jamais posé de problème, ItemIndex n'est jamais mis à jour.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
procedure TComboboxHelper.SelectObjIntValue(Value: Integer);
var
  I, J: Integer;
begin
  for I := 0 to Pred(Items.Count) do
  begin
    if Value = Integer(Items.Objects[I]) then
    begin
      ItemIndex := I;
      Break;
    end;
  end;
end;
 
function TComboboxHelper.TextFromID(Value: Integer): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to Pred(Count) do
  if Integer(Items.Objects[I]) = Value then
  begin
    Result := Items[I];
    Break;
  end;
end;
 
function TComboboxHelper.ValueInt(Idx: Integer): Integer;
begin
  if Count > 0 then
  begin
    if Idx = -1 then
      Result := Integer(Items.Objects[ItemIndex])
    else
      Result := Integer(Items.Objects[Idx]);
  end
  else
    Result := 0;
end;