AjpdSoft :: Ver tema - Reemplazar una cadena de texto dentro de otra
Autor Mensaje
delphi-str Invitado
Asunto : Reemplazar una cadena de texto dentro de otra
Me gustaría utilizar una función propia (sé que Delphi ya incorpora una) para reemplazar una cadena de texto dentro de otra
Publicado:
Jue Oct 05, 2006 9:55 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto : Re: Reemplazar una cadena de texto dentro de otra
Anuncios
delphi-str escribió: Me gustaría utilizar una función propia (sé que Delphi ya incorpora una) para reemplazar una cadena de texto dentro de otra
Tal vez te pueda servir una función como esta:
Código:
function reemplazarTexto (cadena, textoAReemplazar, textoNuevo : string) : string;
var
aPos : Integer;
begin
aPos := Pos(textoAReemplazar, Cadena);
Result := '';
while (aPos <> 0) do begin
Result := Result + Copy(Cadena, 1, aPos - 1) + textoNuevo;
Delete(Cadena, 1, aPos + Length(textoAReemplazar) - 1);
aPos := Pos(textoAReemplazar, Cadena);
end;
Result := Result + Cadena;
end;
Publicado:
Jue Oct 05, 2006 10:04 am
Todas las horas son GMT - 1 Horas
Key
Puede publicar nuevos temas en este foroNo puede responder a temas en este foroNo puede editar sus mensajes en este foroNo puede borrar sus mensajes en este foroNo puede votar en encuestas en este foro