• Viernes 8 de Noviembre de 2024, 08:03
« anterior próximo »
Páginas: [1]

Autor Tema:  Error Desconocido  (Leído 895 veces)

saulillo

  • Miembro activo
  • **
  • Mensajes: 32
    • Ver Perfil
Error Desconocido
« en: Miércoles 26 de Diciembre de 2007, 18:24 »
0
Hola,

estaba con mi proyecto tranquilamente despues de resolver el problema anterior cuando vuelvo a ejecutar el programa y me salta el siguiente error (fichero adjunto) mientras se esta ejecutando. Tengo el siguiente codigo:

Código: Text
  1.  
  2. #include <vcl.h>
  3. #include<math.h>
  4. #include<iostream.h>
  5. #include<fstream.h>
  6. #include<cstring.h>
  7. #include<stdlib.h>
  8. #include<stdio.h>
  9. #pragma hdrstop
  10. #include "Unit1.h"
  11. #include "Unit2.h"
  12. //---------------------------------------------------------------------------
  13. #pragma package(smart_init)
  14. #pragma resource "*.dfm"
  15. TForm2 *Form2;
  16. int aux=0,aux1=0, aux3;
  17. AnsiString *cfechas;
  18. //---------------------------------------------------------------------------
  19. __fastcall TForm2::TForm2(TComponent* Owner)
  20.         : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm2::Button2Click(TObject *Sender) //AQUI ESTA EL ERROR
  25. {
  26.    int p=0;//auxiliar
  27.    aux3=aux-1;
  28.    cfechas = new AnsiString[aux3];
  29.    for (p=0; p<=aux3; p++)
  30.    {
  31.         cfechas[p]="pepe";//ListBox2->Items->Strings[p];
  32.    }
  33.    Form2->Hide();
  34.    Form1->Show();
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TForm2::Button1Click(TObject *Sender)
  38. {
  39.    int j=1, p;
  40.    int ncolum = Form1->ncolum;
  41.    for(p=0; p<=ncolum-1; p++)
  42.    {
  43.         ListBox1->Items->Strings[p] = Form1->StringGrid1->Cells[j][0];
  44.         j++;
  45.         aux1++;
  46.    }
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm2::Button3Click(TObject *Sender)
  50. {
  51.    String cambio1;
  52.    try
  53.    {
  54.         cambio1 = ListBox1->Items->Strings[ListBox1->ItemIndex];
  55.         ListBox1->Items->Delete(ListBox1->ItemIndex);
  56.         ListBox2->Items->Strings[aux]= cambio1;
  57.         aux++;
  58.         aux1--;
  59.    }
  60.    catch(...)
  61.    {
  62.         ShowMessage("Elige un componente");
  63.    }
  64. }
  65. //---------------------------------------------------------------------------
  66. void __fastcall TForm2::Button4Click(TObject *Sender)
  67. {
  68.    String cambio2;
  69.    try
  70.    {
  71.         cambio2 = ListBox2->Items->Strings[ListBox2->ItemIndex];
  72.         ListBox2->Items->Delete(ListBox2->ItemIndex);
  73.         ListBox1->Items->Strings[aux1]=cambio2;
  74.         aux--;
  75.         aux1++;
  76.    }
  77.    catch(...)
  78.    {
  79.         ShowMessage("Elige un componente");
  80.    }
  81. }
  82.  

Pues bien, si en el listbox2 hay cosas, al pulsar el button2, me da el error del archivo adjunto, sino hay nada, no da ningun error. He puesto un stop en la primera instruccion del button2, pero sigue saliendo, asi q no se q hacer, espero q me ayudeis.

Gracias
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Páginas: [1]
« anterior próximo »