Class helper FMX

**Papy214** · 08/12/2015, 11h42

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;

**Paul TOTH** · 08/12/2015, 12h03

je ne vois rien de particulier...mais tu peux peut-être utiliser ComboBox1.ListItems[0].Tag

**Papy214** · 08/12/2015, 12h25

Envoyé par Paul TOTH

je ne vois rien de particulier...mais tu peux peut-être utiliser ComboBox1.ListItems[0].Tag

Les vieilles habitudes ont la vie dure.

Mais ce serait effectivement plus simple que de passer par l'objet.

Le non changement d'ItemIndex vient peut-être d'une autre cause que j'ai zappée pour le moment.

Je vais voir dans les jours qui viennent ce que ça donne.

**ShaiLeTroll** · 08/12/2015, 16h01

Oui surtout que la référence du TObject compilé en 64Bits c'est 8 Octets et non 4 comme le Integer !

On a eu a peu près le même sujet sur un lien Nom / ID dans un combo ou j'ai fourni mes classes TGenericCodeComboObject / TGenericIDComboObject
Le Tag, c'est sympa sur FMX
En VCL, créé un objet reste bien plus propre que ce transtypage sauvage mais cela oblige une libération, idem, j'ai aussi mes classes Helpers sur le TStrings qui n'est pas un TStringList donc n'a pas OwnsObjects

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
  TStringsSliteHelper = class helper for TStrings
  public
    procedure FreeAndNilObjects();
    procedure ClearStringsAndObjects();
  end;
 
//------------------------------------------------------------------------------
procedure TStringsSliteHelper.ClearStringsAndObjects();
begin
  TStringsSLTToolHelp.ClearStringsAndObjects(Self);
end;
 
//------------------------------------------------------------------------------
procedure TStringsSliteHelper.FreeAndNilObjects();
begin
  TStringsSLTToolHelp.FreeAndNilObjects(Self);
end;

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
//------------------------------------------------------------------------------
(*                SoLuTions is an Versatile Library for Delphi                 -
 *                                                                             -
 *  Copyright "SLT Solutions" © (2006)                                         -
 *  contributeur : ShaiLeTroll (2012) - Renommage Fichier et Correction XE2    -
 *  contributeur : ShaiLeTroll (2012) - Documentation Insight                  -
 *                                                                             -
 * Ce logiciel est un programme informatique servant à aider les développeurs  -
 * Delphi avec une bibliothèque polyvalente, adaptable et fragmentable.        -
 *                                                                             -
 * Ce logiciel est régi par la licence CeCILL-C soumise au droit français et   -
 * respectant les principes de diffusion des logiciels libres. Vous pouvez     -
 * utiliser, modifier et/ou redistribuer ce programme sous les conditions      -
 * de la licence CeCILL-C telle que diffusée par le CEA, le CNRS et l'INRIA    -
 * sur le site "http://www.cecill.info".                                       -
 *                                                                             -
 * En contrepartie de l'accessibilité au code source et des droits de copie,   -
 * de modification et de redistribution accordés par cette licence, il n'est   -
 * offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons,   -
 * seule une responsabilité restreinte pèse sur l'auteur du programme,  le     -
 * titulaire des droits patrimoniaux et les concédants successifs.             -
 *                                                                             -
 * A cet égard  l'attention de l'utilisateur est attirée sur les risques       -
 * associés au chargement,  à l'utilisation,  à la modification et/ou au       -
 * développement et à la reproduction du logiciel par l'utilisateur étant      -
 * donné sa spécificité de logiciel libre, qui peut le rendre complexe à       -
 * manipuler et qui le réserve donc à des développeurs et des professionnels   -
 * avertis possédant  des  connaissances  informatiques approfondies.  Les     -
 * utilisateurs sont donc invités à charger  et  tester  l'adéquation  du      -
 * logiciel à leurs besoins dans des conditions permettant d'assurer la        -
 * sécurité de leurs systèmes et ou de leurs données et, plus généralement,    -
 * à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.          -
 *                                                                             -
 * Le fait que vous puissiez accéder à cet en-tête signifie que vous avez      -
 * pris connaissance de la licence CeCILL-C, et que vous en avez accepté les   -
 * termes.                                                                     -
 *                                                                             -
 *----------------------------------------------------------------------------*)
unit SLT.Common.ClassesEx;
 
interface
 
uses
  System.Classes;
 
type
  /// <summary>Boite à outil pour la classe TStrings</summary>
  /// <remarks>Le TStringsSLTToolHelp n'est pas un class helper car lors de sa création en 2002 sous Delphi 5, le code était procédural,
  /// lors de la refonte en classe en 2007, la version utilisée était Delphi 7, en s'inspirant du concept des Assistances de classes (Class Helper) du Delphi.NET
  /// <para>En XE2, la TStringList offre une propriété OwnsObjects (n'existe pas dans la TStrings) qui se comportent comme celle d'une TObjectList, cela remplace ClearStringsAndObjects</para></remarks>
  TStringsSLTToolHelp = class(TObject)
  public
    class procedure FreeAndNilObjects(AList: TStrings); static;
    class procedure ClearStringsAndObjects(AList: TStrings); static;
  end;
 
implementation
 
{ TStringsSLTToolHelp }
 
//------------------------------------------------------------------------------
class procedure TStringsSLTToolHelp.ClearStringsAndObjects(AList: TStrings);
begin
  if Assigned(AList) then
  begin
    FreeAndNilObjects(AList);
    AList.Clear();
  end;
end;
 
//------------------------------------------------------------------------------
class procedure TStringsSLTToolHelp.FreeAndNilObjects(AList: TStrings);
var
  I: Integer;
  Obj: TObject;
begin
  if Assigned(AList) then
  begin
    for I := 0 to AList.Count - 1 do
    begin
      Obj := AList.Objects[I];
      if Assigned(Obj) then
      begin
        AList.Objects[I] := nil;
        Obj.Free();
      end;
    end;
  end;
end;
 
end.

**Papy214** · 09/12/2015, 09h20

J'admets, comme tu le dis justement, que le transtypage sauvage n'est pas la meilleure solution et n'a que l'avantage d'éviter une libération mémoire.

Je me permettrai, avec ton accord préalable bien sûr, d'utiliser ton code qui est bien plus propre que le mien, en faisant une version avec Tag pour FMX et une autre en VCL.