Discussion :

[stfanny31]

salut tt le monde
je veux choisir un groupe d'enregistremnt pour un traitement spéciale
voici le code que j'ai utilsé

Code :

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

1
2
3
4
5
6
7
8
9
 
with table1 do
begin
  EditRangeStart;
  FieldByName('num').Asinteger:= 3; 
  EditRangeEnd;
  FieldByName('num').Asinteger:= 4; 
  ApplyRange; 
end;

ca ne marche pas
esque vous pouvé m'expliqué comment ca marche :ApplyRange;

[ShaiLeTroll]

Ton code à l'air bon, normalement ce équivaut à

Code :

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

1
2
3
table1.filter := 'num > 3 and num < 4';
table1.filtered := true;
table1.first;

mais ce n'est valable que pour l'objet table1 ...

[Franck SORIANO]

Normalement, les Ranges fonctionnent avec un Index.

D'abord, tu dois activer un index qui porte sur les champs que tu veux utiliser dans le Range.
Ensuite le Range en lui même sert à restreindre l'index.

Donc tu devrais utiliser le Range avec un code du genre :

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
 
    tab : TTable;
begin
  // Création d'un index idxNum sur le champ Num.
  tab.IndexDefs.Add('idxNum', 'num', []);
 
  // Activation de l'index idxNum.
  tab.IndexName := 'idxNum';
 
  // Ouverture de la table. Le Range ne peut être posé que sur une table ouverte.
  tab.Open;
 
  // On restreint le Range, avec les bornes <3>, <4>
  tab.SetRange([3], [4]);
  ...
  // On retourne au mode normal avec CancelRange.
  tab.CancelRange;

Les bornes du range sont inclusivent.

Cependant, les Ranges n'ont d'intérêt que pour les tables Paradox. Avec un autre SGBD, il faut charger la table complète en mémoire avant de pouvoir appliquer le range sur l'index. Ca ne supporte pas une volumétrie un peu importante.
Donc autant utiliser un Filtre qui pourra servir dans une clause Where pour une requête SQL.