XML Nodevalue liefert leeres Ergebnis

[himitsu]

Die Leerstrings '' im Text sind unnötig
und es gibt ein StringReplace für Schreibfaule.

StringReplace
ReplaceStr
ReplaceText
string.Replace

Delphi-Quellcode:

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

Delphi-Quellcode:

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