Discussion :

[Aooka]

Bonjour à tous,


Une petite question qui me turlupine

J'ai un humble tableau d'entier, que je souhaiterais remplir de manière dynamique dans une boucle. Cependant, les valeurs à chaque tour de boucle sont de 0. Alors que bien évidement se n'est pas se que je demande.

Donc voici un bout de ma fonction :

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
function TFormRetourFournisseur.AlreadyExist : Boolean;
var
  DB : TDBHelper;
  SelectQuery : TSQLQuery;
 
  aTmpCle : Array Of Integer; // le tableau en question
  I : Integer;
begin
  //Result := False;
 
  DB := TDBHelper.Create(F_sNomPackageAndroid, F_sCheminBddWindows, 'DB.3db');
  SelectQuery := TSQLQuery.Create(NIL);
 
  I := 0;
  With SelectQuery do
  Begin
    SQLConnection := DB.GetConnection;
 
    SQL.Text := 'SELECT Cle FROM ba_NC;'; // Dans SQLite3 la requête marche bien évidemment.
 
	Open;
    First;
 
	{ C'est se qui se trouve dans la boucle while; qui ne marche pas.}
    while NOT EOF do
    Begin
      I := I + 1;
      SetLength(aTmpCle, I);
      aTmpCle[I] := Integer(Fields[0].Value); // ici je met toujours 0 dans aTmpCle[I] alors que sa ne devrait pas être le cas..
 
      Next;
    End;
 
    Close;
    DisposeOf;
 
  End;
 
  DB.Close;
 
end;

Voilà j'ai pas vraiment d'idée, je me pose donc deux questions :
est-ce ma manière de faire ?
ou bien faut-il que je me redirige vers un autre type de variable style TList ou un autre type d'array ? Qu'est-ce qui serait le plus optimisé et adéquat surtout dans ce cas de figure ?



Je vous remercie d'avance,
Bonne soirée,

PS: Attention d'ici vendredi soir je n'ai plus le logiciel Delphi !

[Ph. B.]

Bonjour,

Voilà j'ai pas vraiment d'idée, je me pose donc deux questions :
est-ce ma manière de faire ?
ou bien faut-il que je me redirige vers un autre type de variable style TList ou un autre type d'array ? Qu'est-ce qui serait le plus optimisé et adéquat surtout dans ce cas de figure ?

C'est une façon de faire, mais bugguée !
Remplacez aTmpCle[I] par aTmpCle[I-1] et ça sera déjà mieux...

[Aooka]

Pile poil ! Pour un "- 1" les deux fonctions suivantes étaient bien noircis mine de rien !

Merci pour ton coup de pouce , à la rvoyure !
#Résolu.