Curso de C++ Builder

Un sencillo editor de texto

Opción: Ficheros | Abrir y botón FileOpenBtn
//----------------------------------------------------------
void __fastcall TMainForm::FileOpenClick(TObject *Sender)
{
   // Abrir un fichero. Verificar en primer lugar si hay que
   // salvar el archivo actual. Igual que en FileNewClick()
   if (Memo->Modified) {
      
      // Mostrar un cuadro de mensaje.
      int result = Application->MessageBox(
         "El fichero activo ha cambiado. ¿Salvar los cambios?",
         "!Cuidado!", MB_YESNOCANCEL);
      // Si se pulsa YES, guardar el archivo actual.
      if (result == IDYES) FileSaveClick(Sender);
      // Si se pulsa CANCEL, no hacer nada.
      if (result == IDCANCEL) return;
   }
   // Abrir el cuadro de diálogo File Open.
   OpenDialog->FileName = "";
   if (OpenDialog->Execute()) {
      // Borrar el contenido de Memo, si lo hay.
      if (Memo->Lines->Count > 0) Memo->Clear();
      // Leer el fichero a Memo.
      Memo->Lines->LoadFromFile(OpenDialog->FileName);
      SaveDialog->FileName = OpenDialog->FileName;
   }
}
//----------------------------------------------------------
Atrás