[басяк]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.Enabled:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
VAR b,a,a0,c:extended;
begin
a0:=500;
b:=random(60);
b:=b+30;
c:=0;
a:=500;
c:=a-b;
if checkbox1.Checked=true then
memo1.Lines.add(' '+floattostrf(b,fffixed,5,0)+' '+'('+floattostrf(c,fffixed,5,0)+'/'+floattostrf(a0,fffixed,5,0)+')');
end;
end.


Вопрос: как при каждом нажатии кнопки от числа А0 отнимались числа (b), пока С не станет нулем..только делфи начал учить, много чего не очень понимаю.

[Wipahacker]

Оброботчик OnClick - Задаётся кнопки по которой клацает пользователь!
Смотри сюды к примеру если:
if C=0 then
ShowMessage('Нажатия на клавиши закончелась');
Button1.Visible:=false;
---------------------------------------------|
Таким оброзом если С= 0 то
кнопка по которой клацает пользователь исчезает!
Так ты хотел?

[басяк]

нее не то Там цикл нужно применять) например возьмем число постоянным =30, А0=500,
"после А0-b=470 в мемо1 выводится с:=470
один клик по кнопке"
"после А0-b=440 в мемо1 выводится с:=440
второй клик по кнопке"
"после А0-b=410 в мемо1 выводится с:=410
третий клик по кнопке"

в общем и т.д. пока будит с=0

[merdashka]

var
Form1: TForm1;
a0,b:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
if not((a0-b)<0) then
a0:=a0-b;

Edit1.Text:=IntToStr(a0);
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
a0:=500;
b:=30;
end;

[Wipahacker]

Так ты разобрался или нет?

[ilang]

Господа, вы название раздела форума читаете вообще?