?
Hallo,
danke funktioniert! Das Problem, das ich jetzt habe ist, dass die "if Anweisungen" in der "if Anweisung" nicht mehr funktionieren. (Das Ergebnis kommt nur durch die Menupunkte (K1 & D1)...
Die Fett markierte Stelle ist die, die nicht funktioniert (wird nicht ignoriert - passiert überhaupt nichts..)
[cpp]void __fastcall TForm1::ErgebnisButtonClick(TObject *Sender)
{
TMenuItem *Item = dynamic_cast<TMenuItem*>(Sender);
if ( !(Item && Item->ClassNameIs("TMenuItem")) )
return;
// Kreisberechnung
if(Item->Name == "K1")
{
**if(RadioButton1->Checked) // Umfang
{
float r = StrToFloatDef(Edit1->Text, 0); // r = Radius (User)
String Ergebnis = FloatToStr(2 * r * PI);
Panel1->Caption = Ergebnis;
StatusBar1->Panels->Items[2]->Text = " Umfang: " + Ergebnis;
}
if(RadioButton2->Checked) // Flächeninhalt
{
float r = StrToFloatDef(Edit1->Text, 0); // r = Radius (User)
String Ergebnis = FloatToStr(PI * r * r);
Panel1->Caption = Ergebnis;
StatusBar1->Panels->Items[2]->Text = " Flächeninhalt: " + Ergebnis;
}**}
}
else if(Item->Name == "D1")
{
**if(RadioButton1->Checked) // Umfang
{
float r = StrToFloatDef(Edit1->Text, 0); // r = Radius (User)
String Ergebnis = FloatToStr(r*r*r); //Nur als Beispiel
Panel1->Caption = Ergebnis;
StatusBar1->Panels->Items[2]->Text = " Umfang: " + Ergebnis;
}
if(RadioButton2->Checked) // Flächeninhalt
{
float r = StrToFloatDef(Edit1->Text, 0); // r = Radius (User)
String Ergebnis = FloatToStr(PI * r * r) //Nur als Beispiel
Panel1->Caption = Ergebnis;
StatusBar1->Panels->Items[2]->Text = " Flächeninhalt: " + Ergebnis;
}**}
}
}[/cpp]
MFG