Discussion :

[chahinerue6]

bonjour voici un problem a qui jais pas trouver une solution
jais une application qui contien 2 string grir nom sg est sg1 est une basse
de donne de 10 chemps tous de type string ou (A) mon apres je possistione un
boutton sur la fiche est a l interieur je declare le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var 
  a:string;
  i:integer;
begin
  a:=table1.FieldByName('Cd1').AsString;
  i:=0;
  if(sg.Cells[i,1]=a)then
     sg1.Cells[i,1]:=sg.Cells[i,0];
end;

il marche mes le problem ce situe ces lorsque je fait par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var 
  a:string;
  i:integer;
begin 
  a:=table1.FieldByName('Cd1').AsString;
  i:=0;
  while(i<1)do
    if(sg.Cells[i,1]=a)then
      sg1.Cells[i,1]:=sg.Cells[i,0];
  i:=i+1;
end;

il ce bloque est je doit refaire ctrl+alt+sup pour l arette alors je
voudrait savoir si ces possible d avoir une idee ou jais fait erreur

[Linkin]

Le while ne porte que sur le if, le i:=i+1 n'est pas pris en compte.

Code :

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

1
2
3
 
while...do begin
end;

[chahinerue6]

Le while ne porte que sur le if, le i:=i+1 n'est pas pris en compte.

Code :

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

1
2
3
 
while...do begin
end;

j'ai modifié mon code, le voila:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var 
  a:string;
  i:integer;
begin
  a:=table1.FieldByName('Cd1').AsString;
  i:=0;
  while(i<1)do 
  begin
    if(sg.Cells[i,1]=a)then
      sg1.Cells[i,1]:=sg.Cells[i,0];
  end;
  i:=i+1;
end;

Toujours le même problème.

[Franck SORIANO]

Et bien maintenant, il te reste à incrémenter i à l'intérieur de la boucle :

Code :

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

1
2
3
4
5
6
7
 
  while(i<1)do 
  begin
    if(sg.Cells[i,1]=a)then
      sg1.Cells[i,1]:=sg.Cells[i,0];
    i := i+1;
  end;

[Dr.Who]

supprime les parenthèses, ont est pas en C
inc/dec plutot que I=I+1 ou I=I-1

Code :

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

1
2
3
4
5
6
while I < 1 do
begin
  if sg.Cells[i,1] = a then
    sg1.Cells[i,1] := sg.Cells[i,0];
  inc(I);
end;

[popo]

supprime les parenthèses, ont est pas en C
inc/dec plutot que I=I+1 ou I=I-1

Une question en passant. En quoi est-ce mieux de ne pas mettre de parenthèse ?

[Paul TOTH]

Une question en passant. En quoi est-ce mieux de ne pas mettre de parenthèse ?

en rien, c'est juste inutile

mon grain de sel

Code :

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

1
2
3
4
5
6
7
8
9
 
while i < 1 do
begin
  if sg.Cells[i, 1] = a then
  begin
    sg1.Cells[i, 1] := sg.Cells[i, 0];
  end;
  Inc(i);
end;

[droggo]

Goe,

Une question en passant. En quoi est-ce mieux de ne pas mettre de parenthèse ?

Absolument rien, c'est juste une habitude due au fait que Pascal ne les impose pas.

[Paul TOTH]

Goe,

Absolument rien, c'est juste une habitude due au fait que Pascal ne les impose pas.

ah ? moi j'aurais dit que c'est une habitude due au fait que le C (PHP, Javascript...) les impose

[GoustiFruit]

Mon grain de sel aussi :-)

Code :

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

1
2
3
4
if sg.Cells[0, 1] = a then
  sg1.Cells[0, 1] := sg.Cells[0, 0];
if sg.Cells[1, 1] = a then
  sg1.Cells[1, 1] := sg.Cells[1, 0];

[Rayek]

Mon grain de sel aussi :-)

Code :

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

1
2
3
4
if sg.Cells[0, 1] = a then
  sg1.Cells[0, 1] := sg.Cells[0, 0];
if sg.Cells[1, 1] = a then
  sg1.Cells[1, 1] := sg.Cells[1, 0];

bof bof, et s'il a 200 colonnes tu vas toutes les écrire à la main ?

Sinon, vu que c'est une boucle courte qu'on va parcourir complètement autant prendre au plus simple avec un for

En version je maitrise la gestion des begin/end implicite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
var 
  a:string;
  i:integer;
begin 
  a:=table1.FieldByName('Cd1').AsString;
 for i := 0 to 1 do
    if(sg.Cells[i,1]=a)then
      sg1.Cells[i,1]:=sg.Cells[i,0];
end;

En version je maitrise pas les begin/end implicite et donc je les met ^^

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
 
procedure TForm1.Button1Click(Sender: TObject);
var 
  a:string;
  i:integer;
begin 
  a:=table1.FieldByName('Cd1').AsString;
 for i := 0 to 1 do
 begin
    if(sg.Cells[i,1]=a)then
    begin
      sg1.Cells[i,1]:=sg.Cells[i,0];
    end;
  end;
end;

[Paul TOTH]

En version je maitrise la gestion des begin/end implicite

la question n'est pas là

mais il m'arrive de commettre cette erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure avant_modif;
begin
  if condition then
    ligne_de_code;
end;
 
procedure apres_modif;
begin
  if condition then
    ligne_de_code;
    autre_code;
end;

où évidement 'autre_code' doit s'exécuter si 'condition' est vraie

[droggo]

Gia,

la question n'est pas là

mais il m'arrive de commettre cette erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure avant_modif;
begin
  if condition then
    ligne_de_code;
end;
 
procedure apres_modif;
begin
  if condition then
    ligne_de_code;
    autre_code;
end;

où évidement 'autre_code' doit s'exécuter si 'condition' est vraie

C'est pourquoi je préconise de toujours mettre un bloc begin end, même s'il n'y a qu'une instruction : en cas d'évolution du code, il est trop facile/courant d'oublier de l'ajouter si on ne l'a pas mis.

Je vous vois venir : "ça alourdit le code"

Oui, un peu. Mais combien de fois avez-vous fait l'erreur citée ?

[Franck SORIANO]

C'est pourquoi je préconise de toujours mettre un bloc begin end, même s'il n'y a qu'une instruction : en cas d'évolution du code, il est trop facile/courant d'oublier de l'ajouter si on ne l'a pas mis.

Idem.

Sans compter qu'il y a aussi la version :

Code :

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

1
2
3
4
5
 
  if ma condition à moi qui est vachement longue et
    qui ne tient pas sur une seule ligne et
    qui nécessite plusieurs retour à la ligne then
    cette fois ci c est du code;

Je trouve qu'il est beaucoup plus lisible d'écrire :

Code :

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

1
2
3
4
5
6
7
 
  if ma condition à moi qui est vachement longue et
    qui ne tient pas sur une seule ligne et
    qui nécessite plusieurs retour à la ligne 
  then begin
    cette fois ci c est du code; 
  end;

Quand en plus, ça dépasse la largeur de l'écran, de cette façon tu repères tout de suite où s'arrête la condition, et où commence le then.

Oui, un peu. Mais combien de fois avez-vous fait l'erreur citée ?

Ben jamais vu que je met toujours les begin end !