Рассчет суммы чисел в эдитах по клику на кнопке

[Артеммм]

Всем добрый вечер. Прошу помоши по дельфи буду оч благодарен если как можно скорей ее помогут мне сделать на ваш взгляд я думаю она пустяковая и так:

Вообшем берутья 4 едита и 1 битбатон. В 1)Сумма 2)месяц 3)процент 4)Скоко всего!
Задаеш к примеру 1)Сумма - 1000000 2)? 3)процент - 10, Далле Жмеш кнопку битбатон и в 4)Скоко всего выходят - получаеться cумма умножившаяся на 10% и так с каждым месяцом

[maladoy]

не понял твоей задачи. . . . поточнее можно как нибудь.....

[Манжосов Денис :)]

var x,y,r: integer;
begin
  x := StrToInt(Edit1.Text); // сумма
  y := StrToInt(Edit2.Text);// количество процентов
  r  := Round(x/100) * y;
  Edit3.Text := IntToStr(r); // что получилось, то и выводим
end;

[maladoy]

Сообщение от Манжосов Денис :)

var x,y,r: integer;
begin
  x := StrToInt(Edit1.Text); // сумма
  y := StrToInt(Edit2.Text);// количество процентов
  r  := Round(x/100) * y;
  Edit3.Text := IntToStr(r); // что получилось, то и выводим
end;

// имхо так правильнее!!!!

var x,y,r: integer;
begin
  x := StrToInt(Edit1.Text); // сумма
  y := StrToInt(Edit2.Text);// количество процентов
  r  := x+x* y/100;
  Edit4.Text := IntToStr(r); // что получилось, то и выводим
end;

тока я не пойму зачем тут месяцы????

[Артеммм]

там должно выглядить примерно так как :
1000000 1 10% 1010000
и аналогично с другими месяцами

[maladoy]

Сообщение от Артеммм

там должно выглядить примерно так как :
1000000 1 10% 1010000
и аналогично с другими месяцами

где,там то?

[Артеммм]

Парни я очень уважаю ваш труд. Мне нужно составить эту задачу до завтра) но я не могу понять как это склейть. берешь 4 едита и битбатон но нужно же что то еше?, что б это все работало и коды вписывать именно куда я не знаю в едит или??

[maladoy]

в событие onclick bitbutton'a
а тз то есть нормальное к твоей задаче????

[Артеммм]

Сообщение от maladoy

где,там то?

в программе)) на поле. вам типо на подобь нарисовать?)
[__edit1___] [__edit2___] [__edit3___] [__edit4___]

[ --------- ]
[ bttbtn ]
[_________]

edit1 - Cумма
edit2 - месяц
edit3 - процент
еdit4 - воопшем

Вот примерно так) Запускаем f9
вводим сумму любую устанавливаем процент ставим любой по счету месяц нажимаем битбатон и уваля !!! все работает

[maladoy]

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    edt1: TEdit;
    edt3: TEdit;
    cbb1: TComboBox;
    btn1: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
var x,y,i:Real;
begin
    x:=strtofloat(Edit1.Text);
    y:=StrToFloat(edt1.text);
    i:=x+x*y/100;
    edt3.Text:=FloatToStr(i);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Edit1.text:='';
edt1.text:='';
edt3.Text:='';
end;

end.