Moin !
Delphi-Quellcode:
if IsPublishedProp(C, 'Items') then begin
if GetObjectProp(C, 'Items') is TStrings then begin
SubNode := XMLDoc.SelectSingleNode('/Language/' + Form.Name + '/' + C.Name + '/Items');
if SubNode = NIL then begin
Knoten := XMLDoc.CreateElement('Items');
SubNode := Node.AppendChild(Knoten);
end;
SetCDataChild(SubNode, (GetObjectProp(C, 'Items') as TStrings).Text);
end;
end;
So tut das.
Wie immer stehe ich tief in eurer Schuld. Danke
