Buscar por:

Função para substituir parte de um texto por outro

Código

{Uma função que é muito útil e que no Delphi eu não encontrei uma que substitui um caracter ou palavra ou frase em um texto maior.

   Segue abaixo a função que eu criei. Espero que ela ajude você no desenvolvimento de seu projeto. Caso você encontre algum erro ou faça alguma melhoria favor me avisar através do e-mail :llutti@hotmail.com}

function Subst(Text,NewChar,OldChar:String):String;

var

   Cont : Integer;

begin

  if NewChar = OldChar then

  begin

    Result := Text;

    Exit;

  end;

  cont := Pos(OldChar,Text);

  while Cont > 0 do

  begin

    Delete(Text,Cont,Length(OldChar));

    Insert(NewChar,Text,Cont);

    cont := Pos(OldChar,Text);

  end;

  Result := Text;

end;