Reemplaza en una cadena de texto la que coincida con la cadena dada.
Ejemplo de uso:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
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;
