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;
Funciones Delphi |
