uses ... MSXML2_TLB;
//XML 4 ist auch installiert
type ...
public
{ Public-Deklarationen }
instpath:
string;
xmlDoc: IXMLDOMDocument2;
end;
...
const
xmlfilename='
Data/buddys.xml';
...
procedure Tfrm_new.bn_speichernClick(Sender: TObject);
var
newBuddy, newSub: IXMLDOMNode;
begin
if (ed_name.Text='
')
or (ed_vorname.Text='
')
then begin
ShowMessage('
Name bzw. Vorname wurde nicht ausgefüllt - Eingabe benötigt!');
end else
begin
xmlDoc:=frm_main.xmlDoc;
newBuddy := xmldoc.createElement('
Buddy');
newSub := xmldoc.createElement('
BuddyID');
newSub.text := ed_buddyid.Text;
newBuddy.appendChild(newSub);
newSub := xmlDoc.createElement('
Name');
newSub.text := ed_name.Text;
newBuddy.appendChild(newSub);
newSub := xmlDoc.createElement('
Vorname');
newSub.text :=ed_vorname.Text;
newBuddy.appendChild(newSub);
...
newSub := xmlDoc.createElement('
Sonstiges');
newSub.text := mem_sonstiges.Text;
newBuddy.appendChild(newSub);
newSub := xmlDoc.createElement('
Bild');
newSub.text := ed_picname.Text;
newBuddy.appendChild(newSub);
xmlDoc.documentElement.appendChild(newBuddy);
//Hier bekomm ich die Zugriffsverletzung
xmlDoc.save(frm_main.instpath + xmlfilename);
ClearEdits;
frm_new.Close;
end;
end;