Application avec une table et 2 StringGrid

Bonjour à vous tous
J'espère que vous passez une bonne journée .
Tout d'abord voici ce que j'ai comme problème :
Je travaille sous Delphi avec une table de base de données et 2 StringGrid. La 1ère qui se nomme sg et qui a l'option go editing à true et avec 14 colonnes numérotées de 1 à 14, et dans la 2ième ligne on saisie des nombres.
La 2ième StringGrid se nomme sg1. Voici ce que j'ai implémenté dans le bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e,i,j,n:integer; l,ls:string; begin table1.First; i:=0; n:=1; a:=table1.FieldValues['Cd1']; l:=inttostr(a); while i<n do begin if l=sg.Cells[i,1] then sg1.Cells[0,1]:=sg.Cells[i,0]; i:=i+1; end; end;

---

Mon problème se situe, je que pense, dans la boucle while mais aussi dans l'affectation sg1.Cells[0,1]:=sg.Cells[i,0]; si Il y a une ou des suggestions merci

Bonjour,

Il faudrait préciser le souci que tu rencontres.
Qu'est ce que tu veux faire exactement ?

@ Chahinerue

Comme le dis ero plus de précision, surtout si StarGate-Sg1 est dans le coin... :mouarf: :mouarf:

Citation:

---

Envoyé par chahinerue6

.... StringGrid se nomme sg1.....

---

Précise également avec quoi tu traivail ado ? Db ? Access ?

Merci.

Citation:

---

Envoyé par ero-sennin

Bonjour,

Il faudrait préciser le souci que tu rencontres.
Qu'est ce que tu veux faire exactement ?

---

le problem dans laffectation qui concerne la string girde nom sg1 car il veut pas afficher le resultas dans cette dernier

Citation:

---

Envoyé par BuzzLeclaire

@ Chahinerue

Comme le dis ero plus de précision, surtout si StarGate-Sg1 est dans le coin... :mouarf: :mouarf:



Précise également avec quoi tu traivail ado ? Db ? Access ?

Merci.

---

la table est de paradox7 quoi d autre

Citation:

---

Envoyé par chahinerue6

Bonjour à vous tous
J'espère que vous passez une bonne journée .
Tout d'abord voici ce que j'ai comme problème :
Je travaille sous Delphi avec une table de base de données et 2 StringGrid. La 1ère qui se nomme sg et qui a l'option go editing à true et avec 14 colonnes numérotées de 1 à 14, et dans la 2ième ligne on saisie des nombres.
La 2ième StringGrid se nomme sg1. Voici ce que j'ai implémenté dans le bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e,i,j,n:integer; l,ls:string; begin table1.First; i:=0; n:=1; a:=table1.FieldValues['Cd1']; l:=inttostr(a); while i<n do begin if l=sg.Cells[i,1] then sg1.Cells[0,1]:=sg.Cells[i,0]; i:=i+1; end; end;

---

Mon problème se situe, je que pense, dans la boucle while mais aussi dans l'affectation sg1.Cells[0,1]:=sg.Cells[i,0]; si Il y a une ou des suggestions merci

---

comment ecrie ton le programe suivant en pascal
while(i<n)
{if(l==ls)
{
instruction;
}
i++;
}
merci

Citation:

---

Envoyé par chahinerue6

comment ecrie ton le programe suivant en pascal
while(i<n)
{if(l==ls)
{
instruction;
}
i++;
}
merci

---

Par rapport ta procedure :
le while ne fonctionne que si i vaut 0, ansuite regarde si
if l=sg.Cells[i,1] then (soit if l=sg.Cells[0,1] then) est bien égal à l

Quand i vaut 1 tu sort de while.

enfin je pense que tu as du le voir !!