DBgrid to StringGrid

procedure Tform1.dbgirdtostring(db:tdbgrid;str:tstringgrid) ;

var tdb : tdataset;

a,b : integer;

begin

tdb := db.DataSource.DataSet;

if tdb.Filtered then

tdbFindFirst

else

tdb.First;

b:=0;

str.rowcount :=1;

str.fixedcols:=0;

str.ColCount:= db.Columns.Count;

for a:=0 to db.Columns.Count-1 do

begin

str.Cells[a,0]:= db.Columns.Items[a].FieldName;

end;

while not ta.Eof do

begin

b:=b+1;

str.RowCount:=str.RowCount+1;

for i:=0 to db.Columns.Count-1 do

str.Cells[a,b]:=db.Columns.Grid.Fields[a].AsString;

tdb.Next;

end;

if str.RowCount>1 then str.FixedRows:=1

end;