[Женя]

Калькулятор валют должен обеспечивать пересчет в гривневый эквивалент любой валюты.
Кроме того, калькулятор валют должен обеспечивать пересчет выбранной валюты в эквивалент любой другой.

Подскажите, как это реализовать на delphi 7...

[Ama]

Сообщение от Женя

Калькулятор валют должен обеспечивать пересчет в гривневый эквивалент любой валюты.
Кроме того, калькулятор валют должен обеспечивать пересчет выбранной валюты в эквивалент любой другой.

Подскажите, как это реализовать на delphi 7...

Так а проблема в коде или как все это сделать?

[lmikle]

Тебе надо где-то зранить курсы.
Выбираем базовую валюту. Пусть это будут твои гривны.
Т.е. храним выражение любой валюты в гривнах.

Когда у нас идет пересчет, то нам надо сначала перевести из одной валюты в гривны, в потом из гривен в другую валюту (если надо).

Код:

function  FindBaseXRate(ACurr : String) : Currency;
begin
   // Ищем курс валюты ACurr в гривнах
   // Зависит от того, как ты их хранишь
end;

function XRate(AFrom, ATo : String; AValue : Currency) : Currency;
begin
  If AFrom = ATo 
    Then Result := AValue
    Else
      If AFrom = 'UAH'
         Then Result := AValue / FindBaseXRate(ATo)
         Else
            If ATo = 'UAH'
              Then Result := AValue * FindBaseXRate(AFrom)

               Else
                  Result := XRate('UAH',ATo,XRate(AFrom,'UAH',AValue));
end;