BorlandTalk.com

Guest

I tried the following and i'm getting the EOleError 'Object factory for
class TActionItem missing'.

program FWTest02;

{$APPTYPE CONSOLE}

uses
ExceptionLog,
SysUtils
, ComObj
;

type
IActionItem = interface
function GetName : String;
end;

TActionItem = class(TComObject, IActionItem)
function GetName : String;
end;

var
ai : IActionItem;
{ TActionItem }

function TActionItem.GetName: String;
begin
Result := 'ActionItem';
end;

begin
ai := TActionItem.Create;
writeln(ai.GetName);
end.

what am i doing wrong?