процедуры в delphi.

[Борис Владимирович]

процедура
x:=5;
y:=5;
=====какой-то код====
end;


мне требуется записать в эту процедуру код, который должен изменять x и у, находящиеся непосредственно в самой процедуре, но меняться они должны только после того как я нажму на кнопочку, располагающуюся на панели TtoolBar.

[veniside]

плюсую любого, кто сможет внятно объяснить, что написано выше )

[Пепел Феникса]

запоминайте где то что было нажатие на кнопку, а потом просто if.

плюсую любого, кто сможет внятно объяснить, что написано выше )

1)некоторым на репу пофиг.
2)вы не сможете поднять репутацию никому.

[Аватар]

БВ, вынесите объявление X,Y за пределы процедуры. В обработчике клика по кнопочке присвойте в эти переменные какие нужно вам значения.

меняться они должны только после того как я нажму на кнопочку

Это условие выполнено. Обращайтесь к вашей процедуре и используйте эти переменные. На большее фантазии исходя из вашего ТЗ не хватает

[Человек_Борща]

мне требуется записать в эту процедуру код, который должен изменять x и у, находящиеся непосредственно в самой процедуре, но меняться они должны только после того как я нажму на кнопочку,

Это не возможно.

Пока компилятор(читай - программа) не перешёл в код процедуры, то не самого метода не темболее её локальных переменных просто не существует. Изменитть локальные переменные метода можно только передавая новые значения через параметры самого метода, в момент его вызова.

Тут 2 решения:
1. передовать в вызываемую процедуру новые значения через параметры и плясать от этого.
2. Воспользоваться глобальными переменными.

Второе не рекоммендуется(А что если како-то TtHread влезет в глоб. переменную и изменит её в ходе выполнения процедуры SAmeProc? Будет пИичально...).

допустим так:

procedure TForm1.SameProc(aNewX,aNewY:Integer; const aBtnPushed:Boolean = false); //обьявлено в public формы
var
  x,y:Integer; //Локальные переменные, инициал. только при переходе компилятора к этому коду. И уничтожаются после выхода из кода процедуры. 
begin
 if aBtnPushed then //Если кнопка нажата,
 begin
  x:=aNewX; //в локальную переменную зададим новое значение.
  y:=aNewY;
 end;
  
 if ((x<>0) or (y<>0)) then
 begin
 //Если X и Y локальные были изменены сотворим действие.
 end;
end;

procedure TForm1.ToolButtonClick(Sender: Tobject);
begin
  SameProc(0,0,True); //кнопка нажата, переменые не поменялись
  SameProc(100,-100,True); //кнопка нажата, переменые поменялись, и в вызванной процедуре произошли действия. 
end;