wenn man einen Button klickt soll ein neues TForm geöffnet werden, in welchem die Seriellen Schnittstellen ausgewählt werden können.
Hier der Code zum Button Click

void __fastcall TfrmHaupt::btnOptionenClick(TObject *Sender)
{
/*extern unsigned char	Schnittstelle;
extern bool             NOP_Anzeige;*/
AnsiString StPortvorhanden[256];
int inAnzPorts=0;
HANDLE     Com;
AnsiString PortName;
TRadioButton *RBCom[255];

// alle Com-Ports bestimmen
for (int i = 1; i <= 256; ++i)
{
  PortName = "COM" + IntToStr(i);

  // Port öffnen
  Com      = ::CreateFile(PortName.c_str(),
                          GENERIC_READ | GENERIC_WRITE,
                          0,
                          0,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0);

  if (Com != INVALID_HANDLE_VALUE)
  {
    // alle gefundenen Ports in ne Listbox packen
    inAnzPorts++;
    StPortvorhanden[inAnzPorts]=PortName;

    // Port wieder schliessen
    PurgeComm(Com, PURGE_RXABORT);
    CloseHandle(Com);
  }
}
frmOptionen = new TfrmOptionen(this);
for (int k=1;k<=inAnzPorts;k++)
{
       RBCom[k]= new TRadioButton(frmOptionen);
       RBCom[k]->Parent = frmOptionen;
       frmOptionen->Panel1->InsertControl(RBCom[k]);
       RBCom[k]->Width = 70;
       RBCom[k]->Height = 20;
       RBCom[k]->Top = 10+((k-1)*35);
       RBCom[k]->Left = 355;
       RBCom[k]->Alignment= taRightJustify;
       RBCom[k]->Caption= StPortvorhanden[k];

}

frmOptionen->ShowModal();
delete frmOptionen;

}

so das scheint auch zu klappen nur beim Schließen des ganzen über den Button
Schließen

void __fastcall TfrmOptionen::btnCloseClick(TObject *Sender)
{
        frmOptionen->Close();
}

kommt obiger Fehler woran kann das liegen?

Merci für eure Hilfe

MfG Felix

Grüße Joe_M.

also hab lange nichts mehr von mir hören lassen nun bin ich aber wieder etwas dran.

Also das Problem trat erst auf nachdem ich die Radiobuttons eingefügt habe. Ist das überhaupt korrekt die so im Aufruf zu erzeugen oder gibt es bei Borland C auch eine Funktion die beim öffnen der Form Aufgerufen wird (wer sich in Visual Basic auskennt ich mein sowas wie FormCreate) und muß ich die erzeugten RadioButtons vor dem Terminieren der Forms wieder löschen?

Viele Fragen wer weiß noch was?

Vielen Dank für eure Hilfe

MfG Felix

Die Borland C++ Builder kennen OnCreate. Einfach mal im Objektinspektor unter Ereignisse nachschauen

[cpp]
void __fastcall TfrmOptionen::btnCloseClick(TObject *Sender)
{
frmOptionen->Close(); // frmOptionen ist hier falsch!
}
[/cpp]

hier mal der abgewandelte Code

Form erzeugen

frmOptionen = new TfrmOptionen(this);
frmOptionen->ShowModal();
delete frmOptionen;

Das erzeugen der Radiobuttons

void __fastcall TfrmOptionen::FormCreate(TObject *Sender)
{
AnsiString StPortvorhanden[256];
int inAnzPorts=0;
HANDLE     Com;
AnsiString PortName;
TRadioButton *RBCom[255];
// alle Com-Ports bestimmen
for (int i = 1; i <= 256; ++i)
{
  PortName = "COM" + IntToStr(i);

  // Port öffnen
  Com      = ::CreateFile(PortName.c_str(),
                          GENERIC_READ | GENERIC_WRITE,
                          0,
                          0,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0);

  if (Com != INVALID_HANDLE_VALUE)
  {
    // alle gefundenen Ports in ein Array packen
    inAnzPorts++;
    StPortvorhanden[inAnzPorts]=PortName;

    // Port wieder schliessen
    PurgeComm(Com, PURGE_RXABORT);
    CloseHandle(Com);
  }
}

       for (int k=1;k<=inAnzPorts;k++)
       {
           RBCom[k]= new TRadioButton(frmOptionen);
           RBCom[k]->Parent = frmOptionen;
           Panel1->InsertControl(RBCom[k]);
           RBCom[k]->Width = 70;
           RBCom[k]->Height = 20;
           RBCom[k]->Top = 10+((k-1)*35);
           RBCom[k]->Left = 355;
           RBCom[k]->Alignment= taRightJustify;
           RBCom[k]->Caption= StPortvorhanden[k];

        }

}

und das beenden des Forms mit einem Button

void __fastcall TfrmOptionen::btnCloseClick(TObject *Sender)
{
        Close();
}

Vielleicht kann mir jemand sagen woran das liegt? Bei Basic kammen solche Probleme meist wenn man die Radiobuttons erneut mit gleichem Index erzeugt erzeugt aber warum kommt dann der Fehler erst beim schließen

Vielen Dank auf jedenfall mal Felix

P.S.: Es scheint effektiv an den RadiButtons zu liegen, wenn ich die Funktion zum erzeugen heraus nehme läuft es ohne Probleme

frmOptionen dürfte bereits von der Applikation verwendet werden. Versuch es mal mit einem anderen Namen für das dynamisch erstellte Formular.

Solange Du frmOptionen nicht aus der Liste der automatisch erzeugten Formulare herausnimmst und darauf bestehst, den globalen Formularnamen zu verwenden, hast Du ein Problem. Ich sehe allerdings auch nirgendwo die Stelle, an der Du die Radiobuttons wieder 'deletest'.

Merci für alle Hilfethemen

MfG Felix

Dazu muss man natürlich die Form löschen nachdem sie geschlossen wurde...