Pointer auf Procedures...

[glkgereon]

Hi

ich habe ein paar procedures, die ich in einem array organisieren will. also verschiedene methoden, die ich aber mittels eines indexes ansprechen will.

dazu habe ich folgendes versucht:

Delphi-Quellcode:

type
  PProc = Procedure;

  TSetting = record
    Name: String;
    Proc: ^PProc;
    IsSet: Boolean;
  end;

  TSysSettings = class(TObject)
  private
    Settings: array [1..1] of TSetting;
    //Procedures
    procedure HandleShutDown;
  public
    constructor Create;
    destructor Destroy;
  end;

implementation

constructor TSysSettings.Create;
var T:TStringList;
    i:Integer;
begin
  inherited Create;

  //Settings setzen
  Settings[1].Name:='Herunterfahren unterbrechen';
  Settings[1].Proc:=PProc(@HandleShutDown);

end;

destructor TSysSettings.Destroy;
begin
  inherited Destroy;
end;

procedure TSysSettings.HandleShutDown;
begin
  //
end;

bei der zuweisung sagt er aber: Variable erforderlich...

was mach ich falsch?

[jbg]

Da bietet Delphi eine einfachere Syntax an:

Delphi-Quellcode:

type
  TSetting = record
    Name: String;
    Proc: procedure of object;
    IsSet: Boolean;
  end;

...
Settings[1].Proc := HandleShutDown;