Discussion :

[Laurent Dardenne]

Salut,
utilisant la grille TSMDBGrid je rencontre un petit soucis sur la mise en place de filtre, je dois récupérer la liste des filtres d'une colonne avant de pouvoir l'affecter sinon j'obtiens une AV :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
const 
 cstRqstFiltreDuns='Select distinct tmondiale FROM Sites WHERE Orphelin<>0 and tmondiale is not null';
begin
...
    TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;
    LstDuns3:=TStringList.Create;
    dmPrincipal.GetListOfDistinctValue(cstRqstFiltreDuns,LstDuns3);
    OrphelinSMDBGrid.Columns[Index].FilterList:=LstDuns3;

Existe-t-il une approche particuliére pour éviter ce pb ?

Merci.

[LadyWasky]

Qu'entend tu par filtre ici donc ? tu parles des cases à cocher ou bien d'autre chose ?

[LadyWasky]

Ha si, ça y'est, j'entrevois la chose...

[LadyWasky]

Edam --> avec les FilterList de SmDBGrid, le code de Laurent est normal. Mais c'est vrai que ça a de quoi être surprenant.....


Bon prenons la méthodes GetFilterList :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function TSMDBColumn.GetFilterList : TStrings;
begin
  if FFilterList = nil then
    FFilterList := TStringList.Create;
  Result := FFilterList;
end;

Donc, en effet, par défaut, FFilterList n'est pas créée, elle est créée à partir du moment où tu la lit une première fois.

Donc si tu n'éffectue pas cette opération, au moment ou tu lui affectes une liste que tu as créé toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 if Value = nil then   //ignoré puisque tu  affectes avec value<>nil
  begin
    FFilterList.Free;
    FFilterList := nil;
    exit;
  end;
 
  FFilterList.Assign(Value); //Access Violation puisque FFilterList=nil (si tu ne l'as pas créé en la lisant une première fois)

Du coup, ce que je fais en général, c'est que j'initialise tous mes FilterList de colonnes dont je puisse avoir besoin dans mon FormCreate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var AList:TStringList;
begin
  for i:=0 to SMDBGrid1.ColCount-1 do
      AList:=SMDBGrid1.Columns[i].FilterList; //L'appel en lecture à pour effet de créer la liste de filtre de la colonne
end;

Après et à partir de là, pour l'affectation, c'est "bateau"

[edam]

waskol là j'ai rien pigé
pour la fonction GetFilterList j'ai pigé,
je préfère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Procedure TSMDBColumn.GetFilterList(var FFilterList : TStrings);
begin
  if FFilterList = nil then 
    FFilterList := TStringList.Create;
end;

pour celle là rien ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var AList:TStringList;
begin
  for i:=0 to SMDBGrid1.ColCount-1 do
      AList:=SMDBGrid1.Columns[i].FilterList; //L'appel en lecture à pour effet de créer la liste de filtre de la colonne
end;

Alist aura à la fin quel valeur exactement
j'ai jamai utlisé TSMDBgrid, alors c'est pourquoi -peut être- j'ai rien compris .

[edit] je veux dire quel est la relation avec le probléme
{edit}
je croix comprendre un peut ce que tu veux dire waskol, je pense que j'était un peut
alors récapitulant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;

ce ligne affect lstduns3 par Filterlist et en même temps si ce Filterlist n'existe pas (=nil) il est crée,,, c'est sa
si c'est vrait alors sa sert à quoi ce ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   LstDuns3:=TStringList.Create;

[LadyWasky]

Oui edam, le soucis, c'est que dans le composant TSMDBGrid, on peut utiliser à une propriété des colonnes appelée FilterList, qui permet de gérer une liste de filtres pour une table d'une base de données.

la propriété FilterList définie comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

property FilterList:TStrings read GetFilterList write SetFilterList;

permet donc d'accéder en Lecture et en écriture à la variable FFilterList de type TString, ce qui se fait via les deux méthodes que j'ai exposé plus haut.

Vu comme sont écrites ces méthodes, la manipulation de la propriété FilterList est piégeante à souhait...

[LadyWasky]

je croix comprendre un peut ce que tu veux dire waskol, je pense que j'était un peut
alors récapitulant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;

ce ligne affect lstduns3 par Filterlist et en même temps si ce Filterlist n'existe pas (=nil) il est crée,,, c'est sa
si c'est vrait alors sa sert à quoi ce ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   LstDuns3:=TStringList.Create;

Oui tu as parfaitement compris, et pour la dernière question, celà permet d'avoir un TStringList à manipuler, plutôt qu'un bête TStrings, classes virtuelle avec laquelle on ne peut pas tout faire (tri, gérer les éléments dupliqués ou non, etc...).

[edam]

il y a un grand hic,non??
tu affecte la lste à un variable TStringlist puis tu le crée????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
const 
 cstRqstFiltreDuns='Select distinct tmondiale FROM Sites WHERE Orphelin<>0 and tmondiale is not null';
begin
...
    TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;
    LstDuns3:=TStringList.Create;