AnsiReplaceStr (cadena_texto, cadena_buscar, cadena_reemplazar)

Reemplaza en una cadena de texto la que coincida con la cadena dada.

Ejemplo de uso:

var
  textoBuscar : string;
  textoNuevo : string;
begin
  //buscamos las dos barras para separar el texto en las dos variables
  textoBuscar := copy (texto, 1, pos('//', texto) - 1);
  textoNuevo := copy (texto, pos('//', texto) + 2, length(texto));
  repeat
    if Pos (textoBuscar, fichero) > 0 then
      fichero := AnsiReplaceStr(fichero, textoBuscar, textoNuevo);
  until pos (texto, fichero) = 0;
  Result := fichero;

Use unit StrUtils;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario