Witam, jak zaktualizować już istniejące dane w pliku xml?
procedure tform1.wczytaj(identyfikator,zm1,zm2,zm3,zm4,zm5,zm6 : String );
begin
XMLNode := XML.DocumentElement.AddChild(identyfikator); // Dodanie daty z kalendarza
XMLValues := XMLNode.AddChild('t1'); // Dodanie wartości
XMLValues.Text := zm1;
XMLValues := XMLNode.AddChild('t11');
XMLValues.Text := zm2;
XMLValues := XMLNode.AddChild('t2');
XMLValues.Text := zm3;
XMLValues := XMLNode.AddChild('t22');
XMLValues.Text := zm4;
XMLValues := XMLNode.AddChild('t3');
XMLValues.Text := zm5;
XMLValues := XMLNode.AddChild('t33');
XMLValues.Text := zm6;
procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
var
d : TDate;
t, kontrolka1 : Integer;
begin
d:=MonthCalendar1.Date;
ID := 'db' + DateToStr(d);
Form1.Caption:=ID;
//Sprawdzam czy istnieje tag = ID, jeżeli tak to odczytuje pola do editow,
//jeżeli nie to tworze tag = ID i czyszcze edity.
//----------------------------------------------------------------
kontrolka1:=0;
For t:=0 to xml.DocumentElement.ChildNodes.Count-1 do
begin
If xml.DocumentElement.ChildNodes[t].LocalName = ID then
kontrolka1:=1;
end;
if kontrolka1 = 1 then
begin
Form1.Caption:='Element istnieje.';
XMLNode.FindNamespaceDecl(ID);
//tu wczytac dane do editow
{For t:=0 to xml.DocumentElement.ChildNodes.Count-1 do
begin
end; }
end
else
begin
//dodanie elementu
wczytaj(id,Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text);
end;
end;
end;
Jak zaktualizować istniejące już dane wg kryterium ID czyli mojej daty, zdaję sobie sprawę gdzie, ale umiem dodać tylko nową wartość, nie mam zielonego pojęcia jak aktualizować już istniejące?