помогите сделать программу в delphi

Question

помогите сделать программу в delphi

ВЛАД ХРОМИН Мастер (1641), закрыт 14 лет назад

Написать программу-конвертер валют (из рублей в доллары и из долларов в рубли). В окне формы вводится денежная сумма и текущий курс доллара.

Answer 1

Joney_Hell Мастер (1666) 14 лет назад

пиши на мыло помогу

Answer 2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
edt1: TEdit;
btn1: TButton;
edt2: TEdit;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
lbl1.Caption := FloatToStr(StrToFloat(edt1.Text)*StrToFloat(edt2.Text));
end;

end.