Bonjour,
On va pas le laisser tout seul, il n'osera plus revenir :-)
(de plus en plus sévère Whismeril).
Pourquoi n'utilises-tu pas tu DbGrid ?
Sinon voici un exemple avec un stringgrid.
Soit la table "Tbl", qui contient un champ "Lib1" et la stringgrind "Grid".
procedure tForm1.FillGrid;
var i : integer;
begin
i := Tbl.recordcount;
Grid.colcount :=1;
Grid.rowcount := i+1;
Grid.cells[0,0]:= 'Lib1';
Tbl.first;
i:=0;
while not Tbl.eof do
begin
inc(i);
Grid.cells[0, i] := Tbl.fieldbyname('Lib1').asstring;
Tbl.next;
end;
end;
Je l'ai testé.
Ca devrait aller.
solilog
--