simple interface don't know why i'm getting errors

Thread View: borland.public.delphi.language.objectpascal

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by dancomp71 Wed, 01 Mar 2006 14:55

#57

Author: dancomp71
Date: Wed, 01 Mar 2006 14:55

37 lines
1695 bytes

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?

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads