Procedure f1;
Begin
...
If (Проверяем условие выбора f3\f4) Then
Begin
f2;
f3;
End
Else
Begin
f2;
f4;
End;
...
End;
Type
//Объявляем шаблон функции. f3 и f4 должны иметь такие же параметры
TMyFunc = Function(var1: Integer; var2: String): Boolean;
Var
MyFunc: TMyFunc;
Begin
...
If ((Проверяем условие выбора f3\f4) Then
MyFunc:=f3
Else
MyFunc:=f4;
End;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure f3;
procedure f4;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; b:Pointer;
implementation
{$R *.dfm}
procedure f2;
begin
//........... здесь какой-то код
asm
call b
end
//........... здесь какой-то код
end;
procedure Tform1.f3;
begin
Edit1.text:='3'
end;
procedure Tform1.f4;
begin
Edit1.text:='4'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
b:=@Tform1.f3;
f2;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=@Tform1.f4;
f2;
end;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.