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 :
Voilà j'ai pas vraiment d'idée, je me pose donc deux questions :
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;
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 !
Partager