//----------------------------------------------------------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;
}
}
//----------------------------------------------------------