[delphi] Method pointers

[mrClass]

Ik al eens even rondgekeken op GoT, maar ik heb een simpel probleempje waar ik niet echt uit kom:

Ik heb dit:

code:

type
  Tproc = procedure(value : boolean) of object;
  Tfunc = function : boolean of object;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    SetProperty : Tproc;
    GetProperty : Tfunc;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
  PropInfo : Ppropinfo;
begin
  PropInfo := GetPropInfo(button1,'enabled');

  GetProperty := PropInfo.GetProc;  // !Werkt niet!
  SetProperty := PropInfo.SetProc;  // !Werkt niet!
end;

end.

Het probleem is, dat in het Ppropinfo record een pointer teruggeeft naar de GetProc en SetProc. En geen procedure/function of Tobject. Maar toch wil ik die GetProperty en SetProperty laten pointen naar de GetProc en SetProc van de property. Hoe doe ik dat?

Foutmelding Incompatible types: Tproc and Pointer

[MerijnB]

kan je ze niet gewoon typecasten ?

edit:


dus

GetProperty := TPoc(PropInfo.GetProc);

[ Voor 52% gewijzigd door MerijnB op 23-04-2004 15:20 ]

[mrClass]

Neej ik kan het niet typecasten: "invalid typecast". Maar ik heb wel een functie gevonden die wel de property kan aanpassen namelijk, dat bespaart mij geklooi met procedure pointers:

code:

SetPropValue(button2,'enabled', false);

Deze zit in TypInfo.pas

Mar ik zou nog wel willen weten hoe je dit probleem moet aanpassen.

[BoomSmurf]

Heb Delphi even niet bij de hand (ben niet thuis), maar als ik het goed herinner zijn de procs van PPropInfo normale procedures. Deze moet je ten eerste behandelen als pointers, dat werkt een stukje makkelijker. Verder is een procedure of functie van een object een dubbele pointer. Daar moet je de goeie van nemen en dan werkt het wel.

http://groups.google.com is je vriend.

[LordLarry]

Een property kan, zoals je misschien wel weet, getter en setter methods hebben, maar ook direct een field gebruiken. De GetProc en SetProc velden zijn dus niet altijd zomaar simple function pointers, maar soms ook een adres naar een field. En de function pointers zijn ook niet allemaal van hetzelfde type, maar kunnen per property anders van signature zijn. Je kan ze dus niet allemaal naar een TProc typecasten. Het is dus vrij lastig code te maken die met alle situaties om kan gaan. En aangezien die functies er al zijn, zoals je al zag, hoef je je daar ook niet druk om te maken.