Como en un FileListBox cambiar el nombre de un archivo

[dec]

Hola,

Empezado por JuanErasmo

(...) te agradecería si lo "tradujeras" con tu experiencia en los dos lenguajes,

Asegúrote que en Delphi es poca mi experiencia y en C++ Builder mucha menos. Lo que ocurre es que hay traducciones de código y traducciones de código: la VCL ayuda no poco. El de más arriba no parece demasiado complicado de traducir. De ahí el siguiente intento:

//---------------------------------------------------------------------------
 
 void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
 {
   itemRenombrarArchivo->Enabled = (FileListBox1->ItemIndex != -1);
 }
 
 //---------------------------------------------------------------------------
 
 void __fastcall TForm1::itemRenombrarArchivoClick(TObject *Sender)
 {
   int i = -1;
 
   AnsiString dir, nombreAntiguo, nuevoNombre;
 
   i = FileListBox1->ItemIndex;
 
   if(i == -1) return;
 
   dir = IncludeTrailingPathDelimiter(FileListBox1->Directory);
 
   nombreAntiguo = dir + FileListBox1->Items->Strings[i];
 
   nuevoNombre = InputBox("Renombrar archivo", "Nuevo nombre:", "");
 
   if(nuevoNombre == "") return;
 
   nuevoNombre = dir + nuevoNombre + ExtractFileExt(nombreAntiguo);
 
   RenameFile(nombreAntiguo, nuevoNombre);
 
   FileListBox1->Update();
 }
 //---------------------------------------------------------------------------