//-----------------------------------------------------------void __fastcall TMainForm::FileSaveClick(TObject *Sender)
{
// Si ya se ha especificado un nombre de fichero no es
// necesario abrir el cuadro de diálogo Guardar Fichero.
// Solo hay que guardarlo con SaveToFile().
if (SaveDialog->FileName != "") {
Memo->Lines->SaveToFile(SaveDialog->FileName);
// Establecer ahora la propiedad Modified a FALSE.
Memo->Modified = false;
}
// Si no se ha dado un nombre, ejecutar SaveAs().
else FileSaveAsClick(Sender);
}
//-----------------------------------------------------------