saber nombre de archivo en OpenDialog

[lmpadron]

Hola y gracias por la ayuda

Me ha quedado algo asi

jpg->SaveToFile("CONVERTIDA-" + IntToStr(Button1->Tag) + "-" + ExtractFileName(OpenDialog1->FileName) + ".jpg");

Pero me incluye la antigua extensión dentro del nombre, trate con

jpg->SaveToFile("CONVERTIDA-" + IntToStr(Button1->Tag) + "-" + ExtractFileName(OpenDialog1->FileName.Length() - 3) + ".jpg");

pero me queda asi CONVERTIDA-0-46.jpg y la imagen se llama test.JPG lo que quiciera de ser posible es eliminar la extensión anterior para que no me que el nombre con dos extensiones

[lmpadron]

Por favor disculpen sin querer realice dos preguntas en este post, ya he abierto uno nuevo para la segunda pregunta, gracias de todas formas a thecidmx por su respuesta, el nuevo post está aquí

[ecfisa]

Hola.

Creo que quedaría más sencillo usando las funciones que te han sugerido:

#include<StrUtils.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Nom, Ext;

 if(OpenDialog1->Execute()) {
   Nom = ExtractFileName(OpenDialog1->FileName);
   Ext = ExtractFileExt(Nom);
   Nom = LeftStr(Nom, Nom.Length()-Ext.Length());
   Nom = "CONVERTIDA-" + IntToStr(Button1->Tag) + "-" + Nom + ".JPG";
 }

 ShowMessage(Nom); // aquí lo que desees hacer con 'Nom'
}

Saludos.