<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML dir=ltr><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2873" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hi Andrew</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>That looks like a Softtech class name.
</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Make your TAOleCoordinate implement a
IOleCoordinate interface and TA</FONT><FONT face=Arial
size=2>OleCoordinateList.Add(AValue : IOleCoordinate) : Integer</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>You can cast the interface from IDispatch using
QueryInterface()</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Todd.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=andrew@thomas.net.nz href="mailto:andrew@thomas.net.nz">Thomas,
Andrew</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=delphi@ns3.123.co.nz
href="mailto:delphi@ns3.123.co.nz">delphi@ns3.123.co.nz</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, June 12, 2006 8:57 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [DUG] (no subject)</DIV>
<DIV><BR></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Hi guys,</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I have a quick question related to
some automation work I am doing and hoped that one of you may be able to shed
light. Anyway I have created a new OleCoordinate class defined as
TAOleCoordinate = class(TAutoObject); and have created a related list class
defined as TAOleCoordinateList = class(TAutoObject);</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I have added a method to
TAOleCoordinateList called .Add(AValue: OLEVariant): Integer which attempts to
add AValue to a TList object. The problem is that I don’t know how to
type cast OLEVariant to TAOleCoordinate (even though I know it is that object
because I created it as such and passed it into this
method). </SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Anyone able to help me in this
matter?</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT><FONT face=Arial
size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Cheers,</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Andrew</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">BTW - This is in Delphi
5.</SPAN></FONT></P></DIV>
<DIV><FONT face=Arial color=#000000 size=2></FONT> </DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Delphi mailing
list<BR>Delphi@ns3.123.co.nz<BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR>
<P>
<HR>
<P></P>No virus found in this incoming message.<BR>Checked by AVG Free
Edition.<BR>Version: 7.1.394 / Virus Database: 268.8.3/361 - Release Date:
11/06/2006<BR></BLOCKQUOTE></BODY></HTML>