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.
