[Fonoman]

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

end;

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

[Drozh]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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 и включался таймер
до числа который выдал рандом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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 ))).
Тема Закрыта