Remplir un stringgrid avec un memo

Commenter

Contenu du snippet

Pour remplir un StringGrid grace un memo

Il suffit d'un StringGrid(ici appelé StringGrid1) et d'un memo(Memo1)

Cet exemple est fait pour un tableau de 3 collones et d'une infinité de lignes.
Vous pouver l'adapter pour un plus de colonnes en changant la ligne if c=3 then ou le 3 défini le nombre de collones

Source / Exemple : 


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=z+1;
end;

Conclusion :


Voila c'est tout con mais ca marche.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.