Помогите пожалуйста решить проблему с delphi.
Вот написал конвертер валют [ссылка заблокирована по решению администрации проекта]
и как вы видите он считает 2-ю строчку, но!
в остальных строчках выдает ошибку: [ссылка заблокирована по решению администрации проекта]
И как ещё вот это исправить? 3где написано перевести из: там надо название валют поменять.. .
Вот собственно код программы. Помогите пожалуйста!! !
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
a: TComboBox;
b: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit16: TEdit;
procedure aChange(Sender: TObject);
procedure bChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit5Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
USD = 1;
EUR = 0.9;
FIM = 5.14;
GBP = 0.62;
type
Money = (u, e, f, g);
var
Form1 : TForm1;
MoneyFrom, MoneyTo : Money;
S, t : Real;
implementation
{$R *.dfm}
procedure TForm1.aChange(Sender: TObject);
begin
case a.ItemIndex of
0: MoneyFrom := u;
1: MoneyFrom := e;
2: MoneyFrom := f;
3: MoneyFrom := g;
end;
end;
procedure TForm1.bChange(Sender: TObject);
begin
case b.ItemIndex of
0: MoneyTo := u;
1: MoneyTo := e;
2: MoneyTo := f;
3: MoneyTo := g;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
begin
s := StrToFloat(Edit1.Text);
end;
except
begin
ShowMessage('Неверное число! ');
Exit;
end;
end;
case MoneyFrom of
u : begin
s := S * USD;
case MoneyTo of
u : s := s/USD;
e : s := S/EUR;
f : S := S/FIM;
g : S := S/GBP;
end;
end;
e : begin
s := S*EUR;
case MoneyTo of
u : s := s/USD;
e : s := S/EUR;
f : S := S/FIM;
g : S := S/GBP;
end;
end;
f : begin
S := S*FIM;
case MoneyTo of
u : s := s/USD;
e : s := S/EUR;
f : S := S/FIM;
g : S := S/GBP;
end;
end;
g : begin
S := S*GBP;
case MoneyTo of
u : s := s/USD;
e : s := S/EUR;
f : S := S/FIM;
g : S := S/GBP;
end;
end;
end;
Edit2.Text := 'Результат: '+ FloatToStr(s);
end;
procedure TForm1.Edit5Change(Sender: TObject);
begin
end;
end.[ссылка заблокирована по решению администрации проекта][ссылка заблокирована по решению администрации проекта]3