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

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

Article #57

Back to borland.public.delphi.language.objectpascal Previous Next

#57

From: 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?

Technical Details

Message-ID: <1141224942.539016.228020@e56g2000cwe.googlegroups.com>

Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!e56g2000cwe.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 109d30,3868bed26bc42594,start
X-Google-Attributes: gid109d30,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!e56g2000cwe.googlegroups.com!not-for-mail
From: dancomp71@aol.com
Newsgroups: borland.public.delphi.language.objectpascal
Subject: simple interface don't know why i'm getting errors
Date: 1 Mar 2006 06:55:42 -0800
Organization: http://groups.google.com
Lines: 38
Message-ID: <1141224942.539016.228020@e56g2000cwe.googlegroups.com>
NNTP-Posting-Host: 199.67.138.84
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1141224947 3080 127.0.0.1 (1 Mar 2006 14:55:47 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 1 Mar 2006 14:55:47 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: e56g2000cwe.googlegroups.com; posting-host=199.67.138.84;
   posting-account=3vAkFQ0AAADLlbkaRbAheQbhLaTGvm7P