BorlandTalk.com

Rayntth · Guest

Hi,

I'm been playing with the refactoring stuff in Delphi 2006 and have
come across the following problem. I tried running the extract
interface on four classes, two inherited from TForm, the other two
inherited from TObject. The ones which inherited from TForm worked as
expected, however the other two which inherit from TObject merely
produced an empty interface.

I can repeat the problem with the following code:

// Works
TTestObject = class(TForm)
public
procedure TOOne();
procedure TOTwo();
end;

Extract Interface refactoring produces:

ITTestObj = interface
procedure TOOne();
procedure TOTwo();
end;

TTestObject = class(TForm, ITTestObj)
public
procedure TOOne();
procedure TOTwo();
end;

However,

//Doesn't work.
TTestObject = class(TObject)
public
procedure TOOne();
procedure TOTwo();
end;

produces:

TTestObject = class(TObject)
public
procedure TOOne();
procedure TOTwo();
end;

ITTestObj = interface
end;

I've not been using Delphi for long (about 1 month reading/playing
around with it) and have probably missed something very obvious. Any
help greatly appreciated.

Riki Wiki · Guest

Hoi

You need to repost your message on the Borland news server to make
everybody see it and possibly answer your message.

How to post to Delphi newsgroups:
<http://delphi.wikia.com/wiki/Delphi_Newsgroups>