1
« en: Lunes 4 de Octubre de 2004, 14:21 »
Aquí voy a poner un cacho del código. Es un ejercicio para practicar con menús,
si veis donde he metido la gamba os agradecería que me lo dijerais.
void __fastcall TForm1::guardar1Click(TObject *Sender)
{
int i=0;
AnsiString m =ListBox1->Items->Strings;
//abrirarchivo es una función diseñada para habrirlo
/*archivo es una variable de la clase que cuenta cada vez que se
introduce un nuevo elemento que pasa del cuadro de texto al listbox*/
if((archivo=abrirarchivo("wb"))==NULL)
{
Application->MessageBox("error al abrir el archivo","error",MB_OK);
exit(0);
}
while(i<elementosdelalista)
{
fwrite(&m,sizeof(m),1,archivo);
i++;
m=ListBox1->Items->Strings;
}
fclose(archivo);
}
Mostrar Mensajes
