COMO GENERO DESDE DELPHI UN .TXT
HOLA QUE TAL:
COMO PUEDO GENERAR O CREAR UN ARCHIVO DE TEXTO QUE PUEDA GUARDAR DIRECTAMENTE EN UN .TXT QUE SE PUEDE VER EN EL BLOCK DE NOTAS.
COMO PUEDO GENERAR O CREAR UN ARCHIVO DE TEXTO QUE PUEDA GUARDAR DIRECTAMENTE EN UN .TXT QUE SE PUEDE VER EN EL BLOCK DE NOTAS.
No se si te sirva, porque no entiendo bien la pregunta
Ademas trabajo con el C++Builder, asi que donde veas una -> en Delphi creo que va un punto
Creas una nueva aplicacion, en ese form añade: Componente Standard | TMemo, Componente Dialogs | SaveDialog y un Standard | TMenu.
En el TMenu en la propiedad Items Clic sobre ella y en la ventana que se abra Clic Derecho y selecciona Insert from Template y selecciona la opcion que dice File Menu.
Ahora en el enlace Save haz clic y escribe:
if ( SaveDialog1->FileName !="" )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
else SaveAs1Click(Sender);
Despues haz clic en Save As y pones:
SaveDialog1->Title = "Salvar como";
if ( SaveDialog1->Execute() )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
Ahora para que se guarde lo escrito en el Memo como TXT debes poner en la Propiedad Filter del Componente SaveDialog
Fichero (*.TXT)|*.TXT
Despues F9 con ella y me dices que tal?
Ademas trabajo con el C++Builder, asi que donde veas una -> en Delphi creo que va un punto
Creas una nueva aplicacion, en ese form añade: Componente Standard | TMemo, Componente Dialogs | SaveDialog y un Standard | TMenu.
En el TMenu en la propiedad Items Clic sobre ella y en la ventana que se abra Clic Derecho y selecciona Insert from Template y selecciona la opcion que dice File Menu.
Ahora en el enlace Save haz clic y escribe:
if ( SaveDialog1->FileName !="" )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
else SaveAs1Click(Sender);
Despues haz clic en Save As y pones:
SaveDialog1->Title = "Salvar como";
if ( SaveDialog1->Execute() )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
Ahora para que se guarde lo escrito en el Memo como TXT debes poner en la Propiedad Filter del Componente SaveDialog
Fichero (*.TXT)|*.TXT
Despues F9 con ella y me dices que tal?
Es decir asi debe quedar:
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if ( SaveDialog1->FileName !="" )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
else SaveAs1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{
SaveDialog1->Title = "Salvar como";
if ( SaveDialog1->Execute() )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if ( SaveDialog1->FileName !="" )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
else SaveAs1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{
SaveDialog1->Title = "Salvar como";
if ( SaveDialog1->Execute() )
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
Memo1->Modified = false;
}
}
//---------------------------------------------------------------------------