//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

float gesamt(int preisgruppe, int dauer){
  float preis;
  switch(preisgruppe){
    case 0:
      preis = 4.5;
      break;
    case 1:
      preis = 3.5;
      break;
    case 2:
      preis = 2.5;
      break;
  }
  Form1->LabelMinute->Caption=FloatToStr(preis)+" Pfg";
  return preis*dauer/100;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int d,i;
 d= StrToInt(Edit1->Text);
 i= RadioGroup1->ItemIndex;
 LabelGesamt->Caption=FloatToStr(gesamt(i,d))+ " DM";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  float preis;
  switch(RadioGroup1->ItemIndex){
    case 0:
      preis = 4.5;
      break;
    case 1:
      preis = 3.5;
      break;
    case 2:
      preis = 2.5;
      break;
  }
  Form1->LabelMinute->Caption=FloatToStr(preis)+" Pfg";
}
//---------------------------------------------------------------------------