求教：delphi databinding之后如何修改保存

lyguo
愚人
等级:
可用分等级：小地主
总技术分：5970
总技术分排名：3852

发表于：2008-08-20 16:41:491楼得分:50

procedure MakeGridXML();
var
i_xml: Tstringlist;
begin
try
i_xml := Tstringlist.Create;
if not fileexists('Grid.xml') then
i_xml.SaveToFile('Grid.xml');

i_xml.LoadFromFile('Grid.xml');
i_xml.Clear;
i_xml.SaveToFile('Grid.xml');
i_xml.Add(' <?xml version="1.0" standalone="yes"?> ');
i_xml.Add(' <DATAPACKET Version="2.0"> <METADATA> <FIELDS>');
i_xml.Add(' <FIELD attrname="Iden" fieldtype="string" WIDTH="30"/>');
i_xml.Add(' <FIELD attrname="Module" fieldtype="string" WIDTH="50"/>');
i_xml.Add(' <FIELD attrname="Name" fieldtype="string" WIDTH="20"/>');
i_xml.Add(' <FIELD attrname="Caption" fieldtype="string" WIDTH="50"/>');
i_xml.Add(' <FIELD attrname="DefalutText" fieldtype="string" WIDTH="50"/>');
i_xml.Add(' <FIELD attrname="DataType" fieldtype="string" WIDTH="20"/>');
i_xml.Add(' <FIELD attrname="ColWidth" fieldtype="i4"/>');
i_xml.Add(' <FIELD attrname="ColOrder" fieldtype="i4"/>');
i_xml.Add(' <FIELD attrname="Visible" fieldtype="boolean"/>');
i_xml.Add(' <FIELD attrname="FootType" fieldtype="string" WIDTH="20"/>');
i_xml.Add(' <FIELD attrname="FootText" fieldtype="string" WIDTH="20"/>');
i_xml.Add(' <FIELD attrname="KeyList" fieldtype="string" WIDTH="100"/>');
i_xml.Add(' <FIELD attrname="PickList" fieldtype="string" WIDTH="100"/>');
i_xml.Add(' </FIELDS> <PARAMS/> </METADATA> <ROWDATA> </ROWDATA> </DATAPACKET>');
i_xml.SaveToFile('Grid.xml');
finally
i_xml.Free;
end;
end;

修改删除举报引用回复