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