Discussion :

[Night_Wolf1619]

La stringgird ce remplie grâce a une demande de produit
La demande et une suit de chiffres comme un code barre
Chaque code barre nous donne " nom + type + nombre de type + code "
Avec le nombre de type on a le nombre de Line de la stringgird + la line fixe des label

La cellule 1 affiche le nom la 2eme affiche le type la 4eme affiche le code grâce a une base de donné externe " pour chaque Line "

Moi je doit remplir les cellules 5 et 6 de chaque Line ,5 va contenir le nom du fournisseur et la 6 la mark du produit "un produit a plusieurs mark " le fournisseur peut fournir le même produit a différent mark
Le nombre de fournisseur et fixe y a 5 fournisseurs
Jusqu’à ce point tout marche très bien pour moi
Le problème c avec les mark
y a beaucoup de teste qui réduit les performance de l'application on plus je n’ai pas droit d’utilisé une autre base de donné

Je me trouve avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
for i:=0 to MAX_CA_SYSTEMS-1 do
 if copy(MainForm.CA_SYSTEMS.Cells[3,i+1],1,6)='code du produit' then
 begin
 MainForm.CA_SYSTEMS.Cells[4,i+1]:='fourniseur X';
if MainForm.CA_SYSTEMS.Cells[0,i+1]='nom de produit'then MainForm.CA_SYSTEMS.Cells[5,i+1]:='mark1/mark2...ets' else
if MainForm.CA_SYSTEMS.Cells[0,i+1]='nom de produit'then MainForm.CA_SYSTEMS.Cells[5,i+1]:='fourniseur X' else
.
.
.
.
.
.
.

je me trouve avec une vingtaine de Line comme ça
ça marche mais coté performance c'est nulle
y a t il pas un autre moyenne que le if ... else a chaque fois ??

merci d'avance je suis sur delphi 7

[Rayek]

Une Requête + Utiliser une DbGrid serait quand même beaucoup plus simple

[Night_Wolf1619]

Une Requête + Utiliser une DbGrid serait quand même beaucoup plus simple

je croie que tu ne ma pas bien compris l'ami il ne s’agit pas de base de donné

[ShaiLeTroll]

Utilise la propriété Objects[] pour stocker les informations utiles lors du remplissage de la TStringGrid

Pour éviter surtout des comparer des chaines mais plutôt des enums ou constantes entièrement typant la donnée, cela peut même se faire par polymorphisme avec TWolfObjectForStringGrid comme ancêtre, ensuite, tu as des TWolfCodeProduitForStringGrid, chaque colonne peut-être pré-typé pour gagner du temps dans les tests

Ces Objects[] pouvant contenir des liens entre-eux

Sinon if copy(...,1,6)='code du produit' then sera toujours faux une chaine de 6 caractères ne peut pas être égala à ta constante

Pour des coordonnées des Cells[], utilise aussi des constantes genre COL_PRODUIT = 3 cela facilitera la maintenance !

[Night_Wolf1619]

Utilise la propriété Objects[] pour stocker les informations utiles lors du remplissage de la TStringGrid

Pour éviter surtout des comparer des chaines mais plutôt des enums ou constantes entièrement typant la donnée, cela peut même se faire par polymorphisme avec TWolfObjectForStringGrid comme ancêtre, ensuite, tu as des TWolfCodeProduitForStringGrid, chaque colonne peut-être pré-typé pour gagner du temps dans les tests

Ces Objects[] pouvant contenir des liens entre-eux

Sinon if copy(...,1,6)='code du produit' then sera toujours faux une chaine de 6 caractères ne peut pas être égala à ta constante

Pour des coordonnées des Cells[], utilise aussi des constantes genre COL_PRODUIT = 3 cela facilitera la maintenance !

quand j'ecrie if copy(...,1,6)='code du produit'j'ai mit 'code produit' juste pour dire que c'est le code c'est un HEX
comme pour fournisseur X nom produit mark
c'est juste un exemple dans le vrais code il y a le vrais nom du fournisseur le vrais nom de la mark le code produit c'est un hex les 6 premier donne toujour le code fournisseur

[ShaiLeTroll]

Du Hexa dans une TStringGrid ?
Tu caches ces colonnes à l'utilisateur ? sinon le pauvre, je le plains !
tu compare Hexa comme une chaine ?
CA_SYSTEMS est-elle une TStringGrid cachée qui contient les données pour une autre TStringGrid affichée ?