XML文件问题！

Question

我想把多个表的数据写到文件中，
然后再从XML 文件中导入，
请问怎么定义XML 文件的格式？
怎么写自已定义的XML 文件呢？

Answer 1

<Table Name="表名">
    <Fields Count=5>
        <Field Name="" Type="" Null="">
        <Field Name="" Type="" Null="">
        <Field ……>
    </Fields>
    <Records Count=7>
        <Record field1="" field2="" field3="" ……>
        <Record field1="" field2="" field3="" ……>
    </Records>
</Table>

Answer 2

-_-# 晕死，怎么写？用TXMLDocument写啊，用TWriter也可以写。
会不会XML啊？

Answer 3

用TClientDataSet接受你的数据,然后SaveToFile就可以保存为相应的XML文件,详见MYBASE的帮助

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  path:string;
  i:integer;
begin
  path:=extractfilepath(application.ExeName);
  memo1.Lines.Add('<?xml version="1.0" encoding="GB2312"?>');
  memo1.Lines.Add('<员工信息>');
  with table1 do
  begin
  if not active then
  active:=true;
  memo1.Lines.Add('  <标题>');
  for i:=0 to fieldcount-1 do
  memo1.Lines.Add('  <cell>'+fields[i].FieldName+'</cell>');
  memo1.Lines.Add('  </标题>');  first;
  while not eof do
  begin
  memo1.Lines.Add('  <row>');
  for i:=0 to fieldcount-1 do
  memo1.Lines.Add('  <cell>'+fields[i].AsString+'</cell>');
  memo1.Lines.Add('  </row>');
  next;
  end;
end;
memo1.Lines.Add('</员工信息>');
memo1.Lines.SaveToFile(path+'temp.xml');
webbrowser1.Navigate(path+'temp.xml');end;end.
－－－－－分太少！