DELPHI 把数据库中的数据转换成XML格式

function ReplaceString(AString: string): string;
begin

Result :=StringReplace(AString, '&', '&', [rfReplaceAll]);

Result :=StringReplace(Result, '>', '>', [rfReplaceAll]);

Result :=StringReplace(Result, '<', '<', [rfReplaceAll]);

end;

function DataSetToXml(ADataSet: TDataSet;
Indent: Integer): string;
var

i: Integer;

Indent1, Indent2: string;

temp: string;

begin

Indent1 := Format('%*s', [Indent * 2, ' ']);

Indent2 := Indent1 + ' ';

Result :=EmptyStr;

ADataSet.First;

while not ADataSet.Eof do

begin

Result :=Result + Format('%s<%s>'#13#10, [Indent1, 'Record']);

for i := 0 to ADataSet.FieldCount - 1 do

if ADataSet.Fields[i].DataType in [ftString..ftAutoInc, ftMemo,

ftWideString] then

begin

temp := ReplaceString(ADataSet.Fields[i].AsString)

Result :=Result + Format('%2:s<%0:s>%1:s</%0:s>'#13#10,

[ADataSet.Fields[i].FieldName, temp, Indent2])

end;

Result :=Result + Format('%s</%s>'#13#10, [Indent1, 'Record']);

ADataSet.Next;

end;

end;

function GenerateXml(ADataSet: TDataSet): string;
begin

Result :=

Format('<?xml version="1.0" encoding="gb2312"?>'#13#10'<Records>'#13#10'%s</Records>',

[DataSetToXml(ADataSet, 1)]);

end;