- Код: Выделить всё
type
class1 = class(TObject)
procedure test;
end;
var
c1: class1;
p : pointer; //или p: TObject;
begin
c1 := class1.Create;
p := c1;
// и как-то вызвать p.test;
Помню на С++ я такое делал, а как на FPC? Никто не в курсе ибо подобное очень сокращает код...