[es] - korekciju u moju proceduru pls

lordy007
Kire Timov
Student
Macedonia, Strumica

Član broj: 154746
Poruke: 35
89.185.194.*

Profil

^{29.08.2007. u 11:26 - pre 202 meseci}

Ovde ima i mnogoh toga koda sto nije potrebno

Code:
unit Unit1;

interface

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

type
    Trezultat = set of 0..99;
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Edit1: TEdit;
    Button21: TButton;
    Button22: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
a, b, c, d, e, f, g, h, i, z : currency;
q,p,w,xx : currency;
  rezultat  : Trezultat;
  niz : Array [-9999..9999]of currency;

implementation

{$R *.dfm}

procedure TForm1.Button8Click(Sender: TObject);
begin
z:=0;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (z);

end;

procedure TForm1.Button9Click(Sender: TObject);
begin
a:=1;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (a);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
b:=2;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (b);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
c:=3;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (c);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
d:=4;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (4);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
e:=5;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (e);
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
f:=6;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (f);
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
g:=7;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (g);
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
h:=8;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (h);
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
i:=9;
if edit1.text = '0' then edit1.Text := '';
edit1.text := edit1.text + currtostr (i);
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
edit1.text := '';
label1.Caption:='';
end;

procedure TForm1.Button5Click(Sender: TObject);// plus
begin
       begin
p:=StrToCurr(edit1.Text);      // edit1.text go snima vo P
label2.caption :=CurrToStr(p);
edit1.Text :='';
xx := StrToCurr(label2.caption);
  end;
  begin
if xx = niz  then

    edit1.text := label2.caption + edit1.text;
    end;
end;

procedure TForm1.Button6Click(Sender: TObject);  // koma(,)
begin
edit1.text := edit1.text + ',';
end;

end.

Rogues do it from behind! :)

Odgovor na temu

lordy007
Kire Timov
Student
Macedonia, Strumica

Član broj: 154746
Poruke: 35
89.185.194.*

Profil

Re: korekciju u moju proceduru pls

^{30.08.2007. u 05:38 - pre 202 meseci}

to sam i uradio al sam zaglavio n preceduru Button (koje vrsi funkcuju 'sobrianja' +)
stvarno nemogu ovo izvediti bar za sada :)

zelim da kad stisnem +(button) da zadaenu vrejdnost u text1 snima njekade u neko promenlivu u memoriju i kad stisnem jos jedan put da soberi novi vrednost sa edit1 i sa ta variabla koju je vec snimena i sada da celokupni iznos se unese u ista variabla pa kad unesem novu vrednost (po treci pu t tako dalje...) da se pak sobere vrednost i tako dalje i tako dalje... al nikako nemogu ovo resiti ... ne volim da mi neko napise ceo koda molim vas :P . zelim samo ideu kako bi ovo mogo odradio

Rogues do it from behind! :)

Odgovor na temu