Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#5

Re: XML: #4 (usw.) abspeichern

  Alt 26. Jan 2006, 14:31
Hi,

ich bin echt vergesslich zur Zeit

Delphi-Quellcode:
procedure SetNodeText(Node: IXMLNode; Name, Value: WideString);
var
  Temp: IXMLNode;
begin
  if Node <> nil then
  begin
    Temp := Node.ChildNodes.FindNode(Name);
    if Temp = nil then
      Temp := Node.AddChild(Name);
    if Temp <> nil then
      Temp.Text := Value;
  end;
end;
Wenn ich das mit UTF8Encode weglasse, klappt das leider trotzdem nicht. Der Fehler bleibt
  Mit Zitat antworten Zitat