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;