Discussion :

[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 :

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
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

[ero-sennin]

Bonjour,

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

[BuzzLeclaire]

@ Chahinerue

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

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

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

Merci.

[chahinerue6]

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

[chahinerue6]

@ Chahinerue

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



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

Merci.

la table est de paradox7 quoi d autre

[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 :

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
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

[BuzzLeclaire]

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 !!