Funktionsnamen aus INI-Datei (o.ä.) importieren

[Christian Seehase]

Moin Grinch,

so geht's:

Delphi-Quellcode:

function TStringConverter.convert(func, Param: string): string;

var
  FConvertFunc: TConvertFunction;

begin
  @FConvertFunc:= self.MethodAddress(func);
  if assigned(FConvertFunc)
  then
    result:= FConvertFunc(Param)
  else
    result:= 'invalid function call: '+func;
end;

function TStringConverter.MachNix(Param: string): string;
begin
  result:= Param;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  sc : TStringConverter;

begin
  sc := TStringConverter.Create;
  try
    ShowMessage(sc.Convert('machnix','HALLO'));
  finally
    FreeAndNil(sc);
  end;
end;