Substitui uma substring dentro da string

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (1)

Essa função permite substituir uma determinada string por outra a partir da posição inicial dos dados:

function SubstituiStr (S,Localizar,Substituir : string) : string;
var
   Retorno: String;
   Posicao: Integer;
begin
   Retorno := S;
   //Obtendo a posição inicial da substring Localizar na string Localizar.
   Posicao := Pos (Localizar, Retorno);
   if Posicao <> 0 then // Verificando se a substring Localizar existe.
   begin
      // Excluindo a Localizar.
      Delete(Retorno, Posicao, Length (Localizar));
      // Inserindo a string do parâmetro Substituir
      Insert(Substituir, Retorno , Posicao);
   end;
Result := Retorno;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := SubstituiStr (Edit1.Text, Edit2.Text, Edit3.Text);
end;

Substitui miSAel por miCAel

1.JPG

Resultado:

2.JPG

 

 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?