Hola,
Cita:
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:
Código:
//---------------------------------------------------------------------------
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();
}
//---------------------------------------------------------------------------