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?