Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
|
AW: XML Nodevalue liefert leeres Ergebnis
1. Aug 2024, 00:18
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(' ', ' ').Replace('–', '-').Replace(s, '<!DOCTYPE CUSTOMER'#13#10'['#13#10'<!ENTITY nbsp "*">'#13#10#13#10'<!ENTITY ndash "–">'#13#10']>', ' ');
end;
$2B or not $2B
Geändert von himitsu ( 1. Aug 2024 um 00:22 Uhr)
|
|
Zitat
|