如何把stringgrid数据转换为dbgrid数据

Question

或者是把stringgrid写入到clientdataset中可以啊 
有会的吗 帮个忙啊
我的dbgrid是和clientdataset1关联的  

Answer 1

clientdataset支持xml格式，你可以把stringgrid的内容存为xml然后用clientdataset读取或者把stringgrid的内容先通过数据集插入到数据库中，然后用clientdataset读取

Answer 2

那如何把stringgrid的内容存为xml啊 有代码吗
我是做基于XML的使用挖掘，做了一个程序把日志文本文件读取到dbgrid并转换为XML文件,文本读取到stringgrid比较容易，但stringgrid数据转换为dbgrid数据比较难，能告诉怎么把stringgrid的内容存为xml啊，万分感谢

Answer 3

很容易哦！
先用ClientDataSet构建一个表
然后用个循环在将数据一条一条的读取出来就可以了啊

Answer 4

给你一段代码吧！
procedure TForm1.FormCreate(Sender: TObject);
var
   i,j: integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
  begin
    StringGrid1.Cells[i,0] := '字段'+inttostr(i);
  end;
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    for j := 0 to StringGrid1.ColCount - 1 do
    begin
      StringGrid1.Cells[j,i] := 'asdf'
    end;
  end;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j: integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
  begin
    ClientDataSet1.FieldDefs.Add(StringGrid1.Cells[i,0],ftString,20);
  end;
  ClientdataSet1.CreateDataSet;
  for i := 1 to StringGrid1.RowCount  do
  begin
    ClientDataSet1.Append;
    for j := 0 to ClientDataset1.FieldCount - 1 do
    begin
      ClientDataSet1.Fields[j].AsString := StringGrid1.Cells[j,i];
    end;
  end;
end;