Un problemme avec un StringGrid ou les cases restent blanches

Question

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

Loulibier · Answer

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

zewishper · Answer

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

Un problemme avec un StringGrid ou les cases restent blanches

2 réponses

Votre réponse

Discussions similaires