Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Vereinfachung von Procedurenaufrufe

    Delphi
    by SirThornberry, 30. Nov 2005
  Das ganze geht zu vereinfachen. Dazu MUSS ki_status_0 bis ki_status_K jedoch im Published definiert sein (also nicht im Private, public oder protected).
  Anschließend geht folgendes:
  
  type
  TObjProc = procedure of Object;
  var LMethod: TObjProc;
  begin
  @LMethod := MethodAddress('ki_status_' + ki_status);
  if Assigned(LMethod) then
  LMethod;