[Fonoman]

Как сделать так что
procedure TForm1.Button1Click(Sender: TObject);
var x:=Integer;
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
и тут можно было брать переменную с button1
end;

[Drozh]

Опиши ее как глобальную

Код:

var
  Form1: TForm1;
  X: Integer; {все нижележащие процедуры будут знать о ней}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 х := 15;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 X, a: Integer;// локальные переменные a и Х
begin
 X := 5; 
 a := X;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 b: Integer;
begin
 b := X; // здесь Х=15
end;

[Fonoman]

Глобальная переменная это хорошо )
а вот нельзя как то по другому ?
Мне надо что бы при нажатие кнопки
включался рандом от 1 до 13 и включался таймер
до числа который выдал рандом

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var n,i: integer;
begin
  k := 0;
  n := 3+random(9); \\ если брать его в таймере то он всегда меняется(
  for i:= 1 to n do
  begin
    if k < n then
    begin
    inc(k);
    label1.caption := inttostr(k)
    end
    else timer1.Enabled:=False;
  end;
end;

end.

Admin: Пользуемся тегами!

[Fonoman]

всё спасиб, я разобрался !!! всего лишь надо было подумать
Спасибо Drozh ))).
Тема Закрыта