Lenguaje de programación Borland Delphi
A continuación mostramos una función en Delphi para reemplazar los carasteres reservados de XML por su correspondiente código de escape.
function cambiarCaracteresReservadosXML (texto : string) : string;
var
cadAux : string;
begin
cadAux := texto;
cadAux := AnsiReplaceStr(cadAux, '&', '&');
cadAux := AnsiReplaceStr(cadAux, '"', '"');
cadAux := AnsiReplaceStr(cadAux, '<', '<');
cadAux := AnsiReplaceStr(cadAux, '>', '>');
cadAux := AnsiReplaceStr(cadAux, chr(39), ''');
Result := cadAux;
end;
Un ejemplo de uso:
//factura
cadena := cadena + '';
cadAux := cambiarCaracteresReservadosXML (Trim(tablaFacturaDescripcion.AsString));
cadena := cadena + cadAux + '';
Publicado el: 2014-05-07