Un problemme avec un StringGrid ou les cases restent blanches

zewishper Messages postés 14 Date d'inscription lundi 21 juin 2004 Statut Membre Dernière intervention 20 août 2004 - 28 juin 2004 à 18:12
zewishper Messages postés 14 Date d'inscription lundi 21 juin 2004 Statut Membre Dernière intervention 20 août 2004 - 28 juin 2004 à 20:13
Voila mon probleme :

j'ai une stringgrid que je rempli grâce a un memo avec la procédure suivante :

procedure TForm1.RemplirTableau();
var z,c,l : integer;
begin
  z:= memo1.lines.Count DIV 3;
  StringGrid1.RowCount := z+1;
  c:=0;
  l:=0;
  z:=0;
  repeat;
    StringGrid1.cells[c,l]:=memo1.lines[z];
    z:=z+1;
    c:=c+1;
    if c=3 then
    begin
      c:=0;
      l:=l+1;
    end;
  until l=5;
  memo1.lines.SaveToFile(dos+'turc.mdl');
end;


ca marche très bien sauf qu'au bout de 5 lignes dans le tableau, plus rien ne s'affiche : les cases sont vides !

merci de m'aider.

ZeWishper

2 réponses

Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 2
28 juin 2004 à 18:32
Salut,

si j'ai bien compris tes sources, il est normal que tu remplisses que les 5 première ligne de ton stringgrid car tu as une boucle qui s'applique jusqu'a la 5ème ligne de ton stringgrid.

procedure TForm1.RemplirTableau();
var z,c,l : integer;
begin
z:= memo1.lines.Count DIV 3;
StringGrid1.RowCount := z+1;
c:=0;
l:=0;
z:=0;
repeat;
StringGrid1.cells[c,l]:=memo1.lines[z];
z:=z+1;
c:=c+1;
if c=3 then
begin
c:=0;
l:=l+1;
end;
until l=5;
memo1.lines.SaveToFile(dos+'turc.mdl');
end;


Bonne prog ;)
Loulibier
0
zewishper Messages postés 14 Date d'inscription lundi 21 juin 2004 Statut Membre Dernière intervention 20 août 2004
28 juin 2004 à 20:13
Re merci loubilier

Je n'avai pas vu, je ferai plu atention la prochaine fois :big)

ZeWishper
0