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
Resultado:
