XML Nodevalue liefert leeres Ergebnis

[Alfonso]

Vielen Dank für eure Unterstützung. Habe mich für MSXML entschieden und mit diese Proc die Entities gelöscht.

Delphi-Quellcode:

procedure TForm2.EntityLöschen(var s: string);
begin
  s := stringreplace(s, ' ', ' ', [rfReplaceAll]);
  s := stringreplace(s, '–', '-', [rfReplaceAll]);
  s := stringreplace(s, '<!DOCTYPE CUSTOMER'#13''#10'['#13''#10'<!ENTITY nbsp "*">'#13''#10''#13''#10'<!ENTITY ndash "–">'#13''#10']>', ' ', [rfReplaceAll]);
end;