Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Función para reemplazar caracteres reservados XML por código de escape (Delphi)
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+