MensajePublicado: Jue 01 Ene, 2015 8:51 am    Asunto: Reemplazar Texto en Cadena Linea Responder citando
Código:
AnsiString RemplazarTexto(String Cadena,String Remplazar,String textoNuevo)
{
  int Pos,Largo;
  String Result     = " ";
  Largo = Remplazar.Length();
  Pos   = Cadena.Pos(Remplazar);
  while (Pos != 0){
    Result     = " ";
    Result = Result + Cadena.SubString(1,Pos-1) + textoNuevo;
    Cadena = Result + Cadena.SubString(Pos+Largo,Cadena.Length());
    Pos = Cadena.Pos(Remplazar);
    }
  return Cadena;
}

Modo de uso
En un TButton
Código:
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
        Form1->Caption = RemplazarTexto("C:\\Musica\\Artista\\Album\\Cancion","\\","-");
}