Процедура, как переменная

[russian-stalker]

Можно ли в качестве переменной использовать процедуру? Сейчас покажу в коде чего хочу:

unit items;

interface
uses GLVectorFileObjects,main,glmaterial;

type
titem=class
   pathtomodel:string;
   pathtotextures:string;
   posx,posy,posz:single;
   constructor create;
   destructor destroy;
   procedure update;
   private
   model:TGLActor;
   matlib:TGLMaterialLibrary;
end;

procedure ItemsSetup;
var
itemslist:array[1..10] of titem;
itemsslotsclosed:integer;

implementation

procedure ItemsSetup;
begin
  itemsslotsclosed:=0;
end;

constructor TItem.create;
begin
inherited;
if itemsslotsclosed<>10 then
begin
  inc(itemsslotsclosed);
  model:=TGLActor.CreateAsChild(mainform.Scene.Objects);
  matlib:=TGLMaterialLibrary.Create(mainform);
  itemslist[itemsslotsclosed]:=self;
end;
end;

destructor TItem.destroy;
begin
  dec(itemsslotsclosed);
  model.Free;
  matlib.Free;
  inherited;
end;

procedure TItem.update;
begin
  matlib.TexturePaths:=pathtotextures;
  model.MaterialLibrary:=matlib;
  model.LoadFromFile(pathtomodel);
  model.Position.SetPoint(posx,posy,posz);
end;

end.

Использую так:

     item:=Titem.create;
     item.posx:=1;
     item.posy:=1;
     item.posz:=0;
     item.pathtomodel:=extractfilepath(paramstr(0))+'\gamedata\meshes\actor\model.smd';
     item.pathtotextures:=extractfilepath(paramstr(0))+'\gamedata\textures\actor';
     item.update;

Хотелось бы создать событие классу(OnUse, создать смогу сам) и чтобы при его срабатывании срабатывала динамически указанная процедура.
Как сделать в классе, чтобы там было что-то типа:
useproc:Tprocedure; или
useproc:TMethod

[Greblin]

Можно. Вот простейший примерчик, если я конечно правильно понял, что Вам нужно

program pr1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TFun = function(x: real): real;

function f1(x: real): real; begin f1 := sin(x); end;
function f2(x: real): real; begin f2 := cos(x); end;

procedure calc(f: TFun; x: real);
begin
writeln(f(x):1:3);
end;

begin
calc(f1, 1);
calc(f2, 1);
readln;
end.

[russian-stalker]

Спасибо, +1, то что надо