EDITORES de TEXTO Bienvenido al mundo paradigmático..!!
Un día sin sonrisas es un día perdido..!! PARADIGMA
Hay dos cosas infinitas..
el Universo y ..
..la estupidez humana..!!
Albert Einstein

QUE ES.? Qué es esto..??
Clases Abrir, Grabar, Copiar y más..
Diseño | Volver | | Arbol | | Archivo | | Agenda | Base de Datos | | Básico |
Comunicación | Editor | | Editor2 | | Fibonacci | | Hanoi | | Listas | | Matriz |
Planificación | Modelo 1 | | Modelo | | Polimorfismo | Punteros | | Sobrecarga | | Vectores |

Un día sin sonrisas es un día perdido..!! PARADIGMA
La ignorancia afirma o niega
La ciencia duda..!!
Voltaire

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..!!

Volver al principio

Qué es esto.??
Editor de Archivos TXT Volver al principio

///////////////////////////////////////
// BUILDER C++ Wilo Carpio
// Editor de Texto V.1 15/9/2000
///////////////////////////////////////

#include
#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";
}
}

Volver al principio

Crear nuevo
documento txt Volver al principio

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

}

Volver al principio