как реализовать процедуру в процедуре?

[Аlex]

На Delphi. покажите просто пример. Я весь инет обрыщил тама нету....
мне надо в FormCloseQuery сделать свою процедуру

[puporev]

Вы процедуру-то выше опишите, а в FormCloseQuery вызовите ее через параметры. А уж как делать подпрограммы, во всех книжках написано.

[Roof]

вот тебе пример:

implementation

{$R *.dfm}

//создаем свою процедуру (любую почти)
Procedure Line_Ris;
begin
   with Form1.Canvas do
    begin
    MoveTo(100, 100);
    LineTo(200,100);

    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Line_Ris; //объявляем ее тут
end;

end.

с твоим FormCloseQuery - аналогия такая же.

Понятно?

Если используешь компоненты в своей процедуре, то вот так:

implementation

{$R *.dfm}

//создаем свою процедуру
procedure Attack_Edit(Edit1, Edit2: TEdit; Label1: Tlabel);
var a, b, itog: double;
begin
  a:= StrToFloat(Edit1.Text);
  b:= StrToFloat(Edit2.Text);
  itog:= a+b;
  Label1.Caption:= FloatToStr(itog);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Attack_Edit(Edit1, Edit2, Label1); //объявляем ее тут
end;

[Аlex]

не это то и ежу понятно ;-) ,а я хочу засунуть процедуру в процедуру, слышал можно так. А вот как не знаю и куда ее засунуть тоже...
чтобы было типа:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
procedure My_Proc ();
begin 
...
end;  //My_Proc
end; //TForm1.FormCloseQuery

но так компилятор не хочет!!!
А как правильно написать???

[eoln]

А как правильно написать???

Процедуру надо перед begin'ом поставить

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose:Boolean);   
procedure My_Proc ();  
begin    
//тут наши действия
end;
begin    
...  
My_Proc;
... 
end;

Или как puporev предложил

procedure My_Proc ();  
begin    
//тут наши действия
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose:Boolean);   
begin    
...   
My_Proc;
...
end;

Если код большой, лучше отдельно написать или в другой модуль вынести (для лучшей читабельности кода)

[Аlex]

Тогда ее потом из FormCloseQuery вызывать же надо, а это потеря в скорости - опять POPA и PUSHA регистров, а хотелось без них обойтись...

[puporev]

Можно ведь совсем не писать процедуру, а нужные действия написать в процедуре TForm1.FormCloseQuery(Sender: TObject; var CanClose:Boolean);

[Аlex]

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

[puporev]

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

[B_N]

Сообщение от Аlex

Тогда ее потом из FormCloseQuery вызывать же надо, а это потеря в скорости - опять POPA и PUSHA регистров, а хотелось без них обойтись...

Эвон... Если уж Вам так критична (аж до одной инструкции) производительность, так не пишите вообще на объектном языке, делайте это на ассемблере. Кстати, не припоминаю, чтобы дельфи пользовалась pusha и popa при вызовах/входах, их вообще используют крайне редко. Да и кроме того, способ вызова одинаковых процедур, а уж тем более их "внутренности" в данном случае не будут отличаться.

Сообщение от Аlex

....всегда вот обходил стороной......

Если Вы о вложенных функциях/процедурах, то правильно делали, очень плохой стиль.