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

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "valwin.h"
/* valwin.cpp */
/* Ohjelma, jossa rahanvaihtotaulukko luetaan tiedostosta joka on muotoa:
**   mk     1.0
**   $      5.7
**   ECU    5.9
**   SKr    0.7
**
** Kääntäjä: Borland C++ Builder 4.0
** Vesa Lappalainen 19.4.1999
** Kääntämisessä projektiin lisäksi mjonot.c, mjonot.cpp
*/


TFormValuutta *FormValuutta;

//---------------------------------------------------------------------------
__fastcall TFormValuutta::TFormValuutta(TComponent* Owner)
    : TForm(Owner), valuutat(20)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormValuutta::FormCreate(TObject *Sender)
{
  valuutat.lue("valuutat.dat");
  CBVal->Items->Clear();
  AnsiString s;
  cValuutat::const_iterator i;

  for (i=valuutat.begin(); i!=valuutat.end(); i++) {
    s = i->Valuutta().c_str();
    CBVal->Items->Add(s);
  }
  LabelMk->Caption = valuutat.begin()->Valuutta().c_str();
  vaihda();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void TFormValuutta::vaihda()
{
  double raha=0;
  sscanf(EditRaha->Text.c_str(),"%lf",&raha);
  valuutta.alusta(raha,valuutat.valuutta(CBVal->Text.c_str()));
  double mk_maara = valuutat.kerroin(valuutta) * valuutta.Maara();
  cValuutta mk(mk_maara,valuutat.mk());
  EditTulos->Text = mk.Maara();
}
void __fastcall TFormValuutta::EditRahaChange(TObject *Sender)
{
  vaihda();
}
//---------------------------------------------------------------------------