COMO GENERO DESDE DELPHI UN .TXT

adiix
11 de Mayo del 2005
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.

franc_slash
11 de Mayo del 2005
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?

franc_slash
11 de Mayo del 2005
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;
}
}
//---------------------------------------------------------------------------