Calling a method only knowing its name

Ohhhhh,

If I know it in compile time, I really will make it...
But it is just a string... How I can call only with
the string?

Ok, just from head:

  TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      StringGrid1: TStringGrid;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
    public
      procedure TForm1.CallMethod(Idx: Integer);
    published
      procedure Method1(Sender: TObject);
      procedure Method2(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CallMethod(Idx: Integer);
begin
  case Idx of
    1: @StringGrid1.OnClick := MethodAddress('Method1');
    2: @StringGrid1.OnClick := MethodAddress('Method2');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CallMethod(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CallMethod(2);
end;

end.

type
  TMethodRec = packed record
    Index:     Integer;
    Name:      string[16];
  end;
  TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      StringGrid1: TStringGrid;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
    public
      MethodArr:   array[1..2] of TMethodRec;
      procedure TForm1.CallMethod(Idx: Integer);
    published
      procedure Method1(Sender: TObject);
      procedure Method2(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CallMethod(Idx: Integer);
begin
    @StringGrid1.OnClick := MethodAddress(MethodArr[Idx]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CallMethod(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CallMethod(2);
end;

end.

type
  TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      StringGrid1: TStringGrid;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
    private
    public
      MethodArr:   array[1..8] of string[16];
      procedure TForm1.CallMethod(Idx: Integer);
    published
      procedure Method1(Sender: TObject);
      procedure Method2(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CallMethod(Idx: Integer);
begin
    @StringGrid1.OnClick := MethodAddress(MethodArr[Idx]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CallMethod(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CallMethod(2);
end;

end.

mmm...less code? no, and such the same of your....ok, i'm tired :))))

esoftbg:
I'm already got to something similar to
your solution. But had you tried to change
button captions on that called methods?
Doesn't work, delphi throws a exception.
Which get us to real solution...

Ferrucio68:
Great work dude!!!! It solved the
problem of self-referencing!!!
In eosftbg examples (and my ones too)
I cannot change the button captions (or other operations involving the
form members)
inside the called method -- can be workarounded
including "Self." before all instructions... But it means to change
code, what I DON'T want.
But you solved! The TMethod thing solved
the problem.

Well, how to solve this point distribution? Well, I'll increase the
question to 350 and give 100 to eosftbg and the rest to Ferrucio68.
Comment if you approve that.

Well...i'm glad to have helped you and agree with whatever you want to do about points...

F68 ;-)

eosftbg:

Friend, try modifying Method2 to:

procedure TForm1.Method2(Sender: TObject);
begin
  Button2.Caption :=  'It was just called Method2';
  ShowMessage('It was just called Method2');
end;

My D6 does not allow it, throws a exception,
except if I change it to:

procedure TForm1.Method2(Sender: TObject);
begin
  Self.Button2.Caption :=  'It was just called Method2';
  ShowMessage('It was just called Method2');
end;

But if done in Ferrucio68's way, you can call
Method2 without worrying about changing it
a line!!!!

Just to complete the answer to earn correctly these points :)

It could be written as a function....

Function TForm1.ExecMethod(MethodName: String): Boolean;
Var
  MyProc : procedure of object;
Begin
  Result := False
  TMethod(myProc).data:=self;
  TMethod(MyProc).code :=MethodAddress(MethodName);
  if Assigned(MyProc) Then begin
    Result := True;
    MyProc;
   end;
end;

Thanks again for points and grading :)

F68 ;-)