@DeddyH: die TStringList bietet dafür aber auch Möglichkeiten ... muß man also nicht selber suchen
Delphi-Quellcode:
// Datei und Benutzer sind Strings und Counter, PunkteDazu sind Integer
// (Typkonvertierung passiert intern)
// alle nötigen Befehle:
XML := TXMLFile.Create;
XML.LoadFromFile(Datei);
Counter :=
XML.RootNode.Node[Benutzer].Data;
....
XML.RootNode.Node[Benutzer].Data := Counter;
XML.SaveToFile(Datei);
XML.Free;
// hier muß man nur aufpassen, daß Benutzer keine Lehrzeichen und sowas enthält
das geht eigentlich mit fast allen XMLLibs ähnlich einfach
und in Kurz ginge bei himXML auch sowas:
Benutzer darf hier nur keine * ? \ und > enthalten
Delphi-Quellcode:
XML := TXMLFile.Create(
nil, false, '
meinepunkteliste');
XML.Options := [xoNodeAutoCreate, xoAutoSaveOnClose];
if FileExists(Datei)
then XML.LoadFromFile(Datei)
else XML.Filename := Datei;
...
Counter :=
XML.RootNode.Node['
user>name=' + Benutzer].Data;
XML.RootNode.Node['
user>name=' + Benutzer].Data :=
XML.RootNode.Node['
user>name=' + Benutzer].Data + PunkteDazu;
XML.RootNode.Node['
user>name=' + Benutzer].Data := Counter;
...
XML.Free;
Ergebnis wäre dann eine
XML-Strucktur wie diese
XML-Code:
<meinepunkteliste>
<user name="Benutzer">Counter</user>
<user name="Benutzer2">Counter2</user>
...
</meinepunkteliste>