Forum: Cross-Platform-Entwicklung
Delphi
by Harry Stahl,
16. Feb 2021
Na, das Format habe ich mal vor Jahren selber definiert (biete schon seit mehr als 25 Jahren an, von meiner Adressenverwaltung Adress-Elemente in Word-Vorlagen einzufügen und so z.B. schnell einen neuen Brief zu schreiben). Aber das war eine reine Windows-Lösung, mit der neuen Version von PC-Adreßzz! soll das Einfügen von Adress-Elementen für Word unter Windows und MAC und für Libre Office auf...
Forum: Cross-Platform-Entwicklung
Delphi
by Harry Stahl,
16. Feb 2021
Frage: Wie mache ich es, ein Tag anzuhängen, das kein öffnendes Tag hat:
Ich möchte, das es so aussieht:
<w:t>Walter Müller</w:t><w:br/>
Aber Addchild erzeugt ja immer ein öffnendes und schließendes Tag?
Also wie kriege ich <w:br/> (für Softbreak) da noch dran?
Forum: Cross-Platform-Entwicklung
Delphi
by Harry Stahl,
16. Feb 2021
if subnode.Text = '{Adr_Alles}' then begin
subnode.text := '53129 Bonn'; // First line
subnode.AddChild('w:p').AddChild('w:rPr').AddChild('w:t').NodeValue := 'Herrn';
subnode.AddChild('w:p').AddChild('w:rPr').AddChild('w:t').NodeValue := 'Walter Müller';
subnode.AddChild('w:p').AddChild('w:rPr').AddChild('w:t').NodeValue := 'Steinstraße 23';
...
Forum: Cross-Platform-Entwicklung
Delphi
by Harry Stahl,
16. Feb 2021
Ich habe mal IterateChilds so abgeändert:
procedure IterateChilds (ANode:IXMLNode);
var
addnode, subnode: IXMLNode;
begin
for var i := 0 to ANode.ChildNodes.Count-1 do begin
subnode := ANode.ChildNodes;
if subnode.HasChildNodes then begin
Forum: Cross-Platform-Entwicklung
Delphi
by Harry Stahl,
16. Feb 2021
Ich habe jetzt mal folgendes gemacht:
procedure TF_Main.bnTestClick(Sender: TObject);
var
Node: IXMLNode;
procedure IterateChilds (ANode:IXMLNode);
var
subnode: IXMLNode;
begin