Discussion :

[breizh44]

Bonjour,

Je cherche à compléter un stringgrid via un bouton.

Je m'explique :
Via deux TEdit (nom et prénom), je désire en cliquant sur un bouton Valider inscrire le nom dans la colonne 0 ligne 1 et le prénom dans la colonne 0 ligne 1.

J'ai déclaré deux integer (ligne et colonne) que j'incréméente, mais je dois louper quelquechose, car cela ne fonctionne pas.

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
17
 
procedure TListe.ValidClick(Sender: TObject);
var colonne : integer;
var ligne : integer;
 
begin
 
begin
ligne := 0  ;
colonne :=0 ;
 
with stringgrid1 do
stringgrid1.Cells[colonne,ligne+1]:= champnom.text;
stringgrid1.Cells[colonne+1,ligne+1]:= champprenom.text;
 
end;
end;

Je pense qu'il est possible ensuite de sauvegarder cette liste dans un fichier, et de la réexploiter dans ma stringgrid, mais quand est il si je veux rajouter une entrée? La nouvelle entrée va-t-elle se placer à la suite des autres ou dois-je déclarer une variable qui mémorise la dernière ligne ?

Merci de vos réponses.

[ero-sennin]

Bonjour,

Alors, déjà, ton code ne fonctionnera pas car tu initialises toujours tes variables ligne et colonne à 0 avant de faire quoi que ce soit.
Ces deux variables doivent donc être globales et non locales
De plus, un seul mot clé var est nécessaire pour déclarer des variables locales

Enfin, si tu utilises le mot clé with, inutile de de mettre le nom du composant à chaque fois...

Ca doit donner ça au final :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TListe.ValidClick(Sender: TObject);
//var 
//colonne : integer; à mettre en globale
//ligne : integer; à mettre en globale
begin
  //ligne := 0  ; initialisation à faire ailleurs (le OnCreate par exemple)
  //colonne :=0 ; initialisation à faire ailleurs (le OnCreate par exemple)
  with stringgrid1 do
    Cells[colonne,ligne+1]:= champnom.text;
    Cells[colonne+1,ligne+1]:= champprenom.text;
  end;
end;

Voilà, en espérant t'avoir aidé
A+

[breizh44]

merci ero pour ta réponse rapide.

voici mon code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit Listeeleves;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TListe = class(TForm)
    Ajouteleve: TButton;
    Button2: TButton;
    Ajout: TGroupBox;
    Nomeleve: TLabel;
    Champnom: TEdit;
    Prenom: TLabel;
    Champprenom: TEdit;
    Valid: TButton;
    Edit1: TEdit;
    Listingclasse: TStringGrid;
    procedure AjouteleveClick(Sender: TObject);
    procedure ValidClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
   private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
 Liste: TListe;
 identite : string;
 colonne : integer;
 ligne : integer;
 
implementation
 
{$R *.dfm}
 
 
procedure TListe.FormCreate(Sender: TObject);
begin
ligne := 0  ;
colonne :=0 ;
Listingclasse.Cells [0,0] := 'Nom';
Listingclasse.Cells [1,0] := 'Prénom';
end;
 
 
procedure TListe.AjouteleveClick(Sender: TObject);
begin
ajout.Visible := true;
 
end;
 
 
procedure TListe.ValidClick(Sender: TObject);
begin
with Listingclasse do
Listingclasse.Cells[colonne,ligne+1]:= champnom.text;
Listingclasse.Cells[colonne+1,ligne+1]:= champprenom.text;
 
end;
 
end.

Je pense avoir raté un truc dans ta réponse car le résultat est le même, et les données nouvellement entrées se réécrivent sur la première ligne.

Je persiste quand même, et essaye de trouver en attendant une aide !

merci

[ero-sennin]

Re,

La procédure lors du clic sur le bouton Valider devrait ressembler à ceci :

Code :

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

1
2
3
4
5
6
7
8
procedure TListe.ValidClick(Sender: TObject);
begin
  ligne := ligne +1; 
  with Listingclasse do
    Cells[colonne,ligne]    := champnom.text;
    Cells[colonne+1,ligne]:= champprenom.text;
  end;
end;

J'ai rajouté la ligne ligne := ligne + 1; car sinon tu restais toujours sur la même ligne pour le prochain enregistrement...
J'ai également encadré le with par un begin end car comme je te l'ai dit tout à l'heure, avec le with, tu n'as plus besoin de reprendre l'objet Listingclasse ...

Voilà, j'espère que ça sera bon ce coup-ci!
A+

[NABIL74]

salut à toutes et à tous,
une autre solution, c'est d'écrire une procédure qui ajoute une ligne à une grille. il y a un problème qu'il doit y avoir au moins une cellule de données, tu ne peux pas régler le "RowCount" à zéro.
voici le code qui permet d'ajouter tes données à "StringGrid":

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
17
18
19
20
21
22
23
24
25
procedure AddRowToGrid(Grid: TStringGrid; Data: array of string);
var
 i: integer;
 FirstRowIsEmpty: boolean;
begin
 // nous vérifions si la première ligne est vide
 FirstRowIsEmpty := true;
for i := Grid.FixedCols to Grid.ColCount - 1 do
  if Grid.Cells[i, Grid.FixedRows] <> '' then begin
     FirstRowIsEmpty := false;
     break;
    end;
 
 // si elle n'est pas vide, alors on ajoute une nouvelle ligne
 if not FirstRowIsEmpty then
   Grid.RowCount := Grid.RowCount + 1;
 
 // copier les données de la dernière ligne
 for i := 0 to Grid.ColCount - Grid.FixedCols - 1 do begin
   if i > High(Data) then
     Grid.Cells[Grid.FixedCols + i, Grid.RowCount - 1] := ''
   else
     Grid.Cells[Grid.FixedCols + i, Grid.RowCount - 1] := Data[i];
 end;
end;

ensuite pour appeler cette procédure, tu peux procéder comme ça:

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
AddRowToGrid(StringGrid1, [Edit1.Text, Edit2.Text]);
end;

a+

NABIL74

[breizh44]

Merci ero!

Ca fonctionne.

Est-il possible de faire l'inverse? D'enlever une entrée dans la liste?

faut il passer par une comparaison de chaines de caractères?

[ero-sennin]

Merci ero!

Ca fonctionne.

De rien

Est-il possible de faire l'inverse? D'enlever une entrée dans la liste?

faut il passer par une comparaison de chaines de caractères?

Qu'entends tu par enlever une entrée ?
Tu veux dire supprimer une ligne du TStringGrid ?

Si oui, suffit de faire un décalage ...

Par exemple, tu déclares dans la partie publique la procédure supprimerLigne :

Code :

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

procedure supprimerLigne(monStringGrid: TStringGrid; ligne: integer);

Et tu l'utilises ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.supprimerLigne(monStringGrid: TStringGrid; ligne: integer);
var
  i:integer;
begin
  for i:= ligne to monStringGrid.RowCount-2 do
  begin
    monStringGrid.Cells[0,i]:= monStringGrid.Cells[0,i+1];
    monStringGrid.Cells[1,i]:= monStringGrid.Cells[1,i+1];
  end;
end;

Enfin, pour l'appeler :

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender : TObject);
begin
  supprimerLigne(StringGrid1,2);
end;

Certains me dirons que l'on peut faire plus performant, mais le but, c'est déjà d'expliquer les bases

A+

[breizh44]

merci beaucoup de votre aide!

Faut bien commencer un jour!