Qué es esto..??
Open, Sabe y Copy
Cut, Paste, New, Cerrar
| Volver | | Arbol | | Archivo | | Agenda | Base de Datos | | Básico |
| Editor | | Editor2 | | Fibonacci | | Hanoi | | Listas | | Matriz |
| Modelo 1 | | Modelo | | Polimorfismo | Punteros | | Sobrecarga | | Vectores |

Amigo virtual, aunque no lo creas en estos links encontraras todos los algoritmos necesarios para administrar un editor de textos que funciona en entorno windows.

Distribuye los objetos correspondientes y la sintaxis siguiente que te propongo te permitirá efectuar las características operaciones de generar un archivo, copiarlo, modificarlo, abrirlo, borrarlo, etc.

El ejecutable que generarás, es tan chiquito que puedes llevarlo en un disquete.. junto con tus programas fuentes..!!

Good lucky..!!

///////////////////////////////////////
// BUILDER C++ Wilo Carpio
// Editor de Texto V.1 15/9/2000
///////////////////////////////////////
#include vcl\vcl.h
#pragma hdrstop
#include "Principal.h"
#pragma resource "*.dfm"

///////////////////////////////////////
// Declarando Formulario Principal
///////////////////////////////////////

TMiFormulario *MiFormulario;

///////////////////////////////////////
// Habilitando Formulario Principal
///////////////////////////////////////

__fastcall TMiFormulario::TMiFormulario(TComponent* Owner) : TForm(Owner)
{
}

///////////////////////////////////////
// FUNCION LEER ARCHIVO
///////////////////////////////////////

void __fastcall TMiFormulario::BotonAbrirClick(TObject *Sender)

{

////////////////////////////////////////////////
// Leer el archivo indicado en BoxNombreArchivo
////////////////////////////////////////////////
try
{
MemoBox->Lines->LoadFromFile(BoxNombreArchivo->Text);
MemoBox->Visible=true;
BotonGrabar->Visible=true;
BotonCopy->Visible=true;
BotonCut->Visible=true;
BotonPaste->Visible=true;
}
catch(...)
{
ShowMessage("No es posible cargar el archivo");
}
MemoBox->SetFocus();
}

///////////////////////////////////////
// GRABAR TEXTO DEL MemoBox
///////////////////////////////////////

void __fastcall TMiFormulario::BotonGrabarClick(TObject *Sender)

{
int Opcion;
Opcion= Application->MessageBox("Asignaste un Nombre al Archivo", "GRABACION DE UNA NUEVA FICHA", MB_OKCANCEL+MB_DEFBUTTON1|MB_ICONQUESTION);
if (Opcion== IDOK)
{

////////////////////////////////////////////////
// Grabar el archivo indicado en BoxNombreArchivo
////////////////////////////////////////////////
try
{
MemoBox->Lines->SaveToFile(BoxNombreArchivo->Text);
}
catch(...)
{
ShowMessage("No es posible realizar la grabación");
}
MemoBox->SetFocus();
}
if (Opcion == IDCANCEL)
{
MiFormulario->Caption = "ELEGISTE BOTON CANCELAR";
}
}

///////////////////////////////////////
// COPIAR TEXTO MARCADO DEL MEMO
///////////////////////////////////////

void __fastcall TMiFormulario::BotonCopyClick(TObject *Sender)

{

////////////////////////////////////////////////
// Copiar texto marcado al portapapeles
////////////////////////////////////////////////

MemoBox->CopyToClipboard();
MemoBox->SetFocus();
}

///////////////////////////////////////
// CORTAR TEXTO MARCADO EN EL MEMO
///////////////////////////////////////

void __fastcall TMiFormulario::BotonCutClick(TObject *Sender)

{

////////////////////////////////////////////////
// Cortar texto marcado y pasar al portapapeles
////////////////////////////////////////////////

MemoBox->CutToClipboard();
MemoBox->SetFocus();
}

///////////////////////////////////////
// PEGAR TEXTO DEL BUFER
///////////////////////////////////////

void __fastcall TMiFormulario::BotonPasteClick(TObject *Sender)

{

////////////////////////////////////////////////
// Pegar texto del portapapeles al BoxMemo
////////////////////////////////////////////////

MemoBox->PasteFromClipboard();
MemoBox->SetFocus();
}

///////////////////////////////////////
// ABRIR NUEVO DOCUMENTO
///////////////////////////////////////

void __fastcall TMiFormulario::BotonNuevoClick(TObject *Sender)

{

////////////////////////////////////////////////
// Limpiar el BoxMemo
////////////////////////////////////////////////

MiFormulario->Caption="Escribe el nuevo documento";
BotonGrabar->Visible=true;
BotonCopy->Visible=true;
BotonCut->Visible=true;
BotonPaste->Visible=true;
MemoBox->Visible=true;
MemoBox->Clear();
MemoBox->SetFocus();
}

///////////////////////////////////////
// CERRAR FORMULARIO PRINCIPAL
///////////////////////////////////////

void __fastcall TMiFormulario::BotonSalirClick(TObject *Sender)

{

int Opcion;
Opcion= Application->MessageBox("Deseas Cerrar Este Programa", "FINALIZACION DEL SISTEMA", MB_OKCANCEL+MB_DEFBUTTON1|MB_ICONQUESTION);

if (Opcion== IDOK)
{
Close();
}
}