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

[Артеммм]

Маладой спасибо тебе, но здесь немного не до конца. Когда ты спаршивал при чем тут месяцы? я сказал аналогично с другими, видишь ли в каждом месяце обшяя cyмма (скоко всего) должна умножаться на 10%!

[Артеммм]

Помогите плиззз народ!!!

[maladoy]

таак???????????
заменил
а вот и листинг!!!!

unit mes;

interface

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

type
  TForm4 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    cbb1: TComboBox;
    tmr1: TTimer;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure cbb1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  x,y:Real;
  z:Integer;
  k:Boolean;
  l:Integer;


implementation

{$R *.dfm}

procedure TForm4.btn1Click(Sender: TObject);
begin
  x:= StrToFloat(edt1.text);
  y:=StrTofloat(edt2.text);
  tmr1.Interval:=2000;
  tmr1.Enabled:=True;
  edt1.Enabled:=False;
  edt2.Enabled:=False;
  edt3.Enabled:=False;
  cbb1.enabled:=False;
end;

procedure TForm4.btn2Click(Sender: TObject);
begin
  k:=False;
end;

procedure TForm4.btn3Click(Sender: TObject);
var i:Integer;
begin
  x:= StrToFloat(edt1.text);
  y:=StrTofloat(edt2.text);
  for I := 1 to l + 1 do
    x:=x*(1+y/100);
  edt3.Text:=FloatToStr(x);
  edt1.Enabled:=False;
  edt2.Enabled:=False;
  edt3.Enabled:=False;
  cbb1.enabled:=False;

end;

procedure TForm4.cbb1Change(Sender: TObject);
begin
  l:=cbb1.ItemIndex;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  z:=0;
  cbb1.itemindex :=z;
  k:=True;
end;

procedure TForm4.tmr1Timer(Sender: TObject);
begin
  if k=true then
    begin
      cbb1.itemindex:=z;
      z:=z+1;
      x:=x*(1+y/100);
      edt3.Text:=FloatToStr(x);


      if z=13 then begin
        tmr1.Enabled:=False;
        ShowMessage('все!!!'+'итого:'+edt3.Text);
      end;
    end
  else
  begin
      tmr1.Enabled:=False;
      ShowMessage('все!!!'+'итого:'+edt3.Text);
  end;
end;

end.

[beso]

Dobri den rebiata! yest takoi problema. Saxraniaiu baza Acces Etit1=suma Edit2=procent ,,Edit3=Text 10 Fisible False " Edit4=itogo. saxraniaiu proekt baza Access i xachu shtobi cherez 10 den automaticheski dabavit baza Procent+itogo. esli u kavota yest primer takoi pamagite pajalusta budu ochen blagadarit.

[beso]

rebiata niujeli ne kto ne smojite mne pamoch kak reshat eta problema?

[beso]

privet vsex ! Pamagite pajalusta kak reshat etat problemu ,,procent" katori priklepleni nije. yest baza danix Access ! saxraniaiu ,,vidani dengi" ,,Procent" "vnesionie dengi" ,,Data"
xachu shtobi kajdava 10 den avtomatisheski dabavliat Procent vnesionie denig. esli u kavota yest takoi primer ili smojite menia pamoch pamagite pajalusta. SPASIBA ZARANIE

[beso]

приветь всем. памагите пажалуста как решать ети провлему! иесть база Access сахраниаю ,,видани денги" "просент" "внессионие денги" "дата" хачу штоби чевеэ 10 ден атоматически дабавить ,,просенть + внессионие денги" испалэуиу Delphi6 если у кавота иест такоипример или сможите меня памоч, памагите пажалуста СПАСИБА ЗАРАНИЕ

[XeN0N]

omg
А по русски?

[beso]

XeN0N што спрашиваеш не пониал? што я хачу мои вапрос не ронял?

[beso]

http://programmersforum.ru/showthrea...438#post197438

ИЗВИНИЯИУС на етат вапросу не сможите памоч ребията ???