Ver Mensaje Individual
  #3  
Antiguo 14-01-2015
aposi aposi is offline
Miembro
 
Registrado: dic 2006
Posts: 146
Reputación: 18
aposi Va por buen camino
Hola,
creo que se refiere a que en la base de datos tiene el nombre de un procedimiento

si es así mira este codigo:

Código Delphi [-]

type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject) ;
      procedure CallMeByName(Sender: TObject) ;
    private
      procedure ExecMethod(OnObject: TObject; MethodName: string) ;
    end;

 var
    Form1: TForm1;

 type
    TExec = procedure of object;

 procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;
 var
    Routine: TMethod;
    Exec: TExec;
 begin
    Routine.Data := Pointer(OnObject) ;
    Routine.Code := OnObject.MethodAddress(MethodName) ;
    if NOT Assigned(Routine.Code) then Exit;
    Exec := TExec(Routine) ;
    Exec;
 end;

 procedure TForm1.CallMeByName(Sender: TObject) ;
 begin
    ShowMessage('Hello Delphi!') ;
 end;

 procedure TForm1.Button1Click(Sender: TObject) ;
 begin
    ExecMethod(Form1, 'CallMeByName') ;
 end;
Responder Con Cita