Delphi klasse in xml format exportieren

[Ghostwalker]

Also...wenns einfach sein soll, bau dir eine Methode, die dir via Format deine Datenfelder in einen String umwandelt, häng den XML-Header/Footer rann und fertig.

Ein kleines Muster mal als Beispiel:

Delphi-Quellcode:

const
   cTagBegin='<%s>%s';
   cTagEnd='</%s>';

  :
function TPerson.PersonToString:String;
begin
  result := format(cTagBegin,['Person','']); 
  result := result+format(cTagBegin,['Name',fname])+format(cTagEnd,['Name']);
   :
end;

procedure TPerson.SchreibeXMLDatei;
var
  output : TStrings;
begin
  output := TStringlist.create;
  output.append(cXMLHeader);
  output.append(MyPerson.PersonToString);
   :
  ouput.append(cXMLFooter);
  output.savetofile(MyFilename);
  output.free;
end;

Wie XMLHeader und Footer aussehen müssen, guggst du dir am besten mal in einem XML-Dokument an.