<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags"><HEAD><TITLE>Signature</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.6000.16414" name=GENERATOR><!--[if !mso]>
<STYLE>v\:* {
BEHAVIOR: url(#default#VML)
}
o\:* {
BEHAVIOR: url(#default#VML)
}
w\:* {
BEHAVIOR: url(#default#VML)
}
.shape {
BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]--><o:SmartTagType name="place"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="PersonName"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><!--[if !mso]>
<STYLE>st1\:* {
BEHAVIOR: url(#default#ieooui)
}
</STYLE>
<![endif]-->
<STYLE>@font-face {
font-family: MS Mincho;
}
@font-face {
font-family: Tahoma;
}
@font-face {
font-family: Verdana;
}
@font-face {
font-family: @MS Mincho;
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.25in 1.0in 1.25in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; COLOR: black; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; COLOR: black; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; COLOR: black; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: blue; TEXT-DECORATION: underline
}
PRE {
FONT-SIZE: 10pt; MARGIN: 0in 0in 0pt; COLOR: black; FONT-FAMILY: "Courier New"
}
SPAN.EmailStyle19 {
COLOR: navy; FONT-FAMILY: Arial; mso-style-type: personal-reply
}
DIV.Section1 {
page: Section1
}
</STYLE>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=EN-US vLink=blue link=blue bgColor=white>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>Fair enough, although you can't really talk about where the
"variable" is declared, since we're talking about multiple "variable" references
to the same object instance.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>To me, some of the examples here today just smell slightly
bad in Delphi, and that's why I personally avoid them; I believe that
unless it's a fairly obvious factory class, then it's use potentially increases
potential for bugs and the time taken to track down those
bugs.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>'nuff said by me. It's 5pm on Friday down here.
I'm off home... ;-)</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>Have a good weekend, all.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>Cheers,</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=076305004-04052007><FONT face=Arial
color=#0000ff size=2>C.</FONT></SPAN></DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
</DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT size=2><FONT
face=Tahoma><B>From:</B> delphi-bounces@delphi.org.nz
[mailto:delphi-bounces@delphi.org.nz] <B>On Behalf Of </B>Tim Jarvis<BR><SPAN
class=076305004-04052007><FONT face=Arial
color=#0000ff> </FONT></SPAN></FONT></FONT></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT size=2><FONT
color=navy><SPAN style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Hope
you don’t mind me sticking my nose in here. Firstly I agree with the sentiment
that you should try and avoid creating objects in one place and freeing in
another, however I don’t think that this situation represents that, think of a
function that returns a class as a factory method, these obviously are quite
common and not bad practice at all, in fact a constructor is a factory type
method.<o:p></o:p></SPAN></FONT></FONT></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Procedure
DoSomthing;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Var<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> List :
TStrings;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Begin<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">List :=
GetLoadsOfStrings;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">try<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> if
assigned(List) then<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
begin<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
…do lots of stuff with the list<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Finally<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> List.Free;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Is really not much
different from <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Procedure
DoSomthing;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Var<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN lang=SV
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> List :
TStrings;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Begin<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">List :=
TStringList.Create;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> PopulateList(List);
<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">try<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> if
List.Count > 0 then<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
begin<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
…do lots of stuff with the list<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">
End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">Finally<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"> List.Free;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 6pt"><FONT face="Courier New" color=navy
size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'">End;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: 'Courier New'"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">The issue is where the
variable is declared, and the scope of the ownership not the act of creation,
creation is fine to delegate to a factory type
method.<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: windowtext">
<HR tabIndex=-1 align=center width="100%" SIZE=3>
</SPAN></FONT></DIV>
<P class=MsoNormal><B><FONT face=Tahoma color=black size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: windowtext; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: windowtext; FONT-FAMILY: Tahoma">
delphi-bounces@delphi.org.nz [mailto:delphi-bounces@delphi.org.nz] <B><SPAN
style="FONT-WEIGHT: bold">On Behalf Of </SPAN></B>Rohit Gupta<BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> Friday, 4 May 2007 12:22
PM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> vss@vss.co.nz;
<st1:PersonName w:st="on">NZ Borland Developers Group - Delphi
List</st1:PersonName><BR><B><SPAN style="FONT-WEIGHT: bold">Subject:</SPAN></B>
Re: [DUG] Dumb Friday Question</SPAN></FONT><FONT color=black><SPAN
style="COLOR: windowtext"><o:p></o:p></SPAN></FONT></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt">I would go along with Robert, you should not return
complex types from functions that create them, It makes the code
messy, you create it in one place and free it in another. Any sort of code
analyser would also complain about this. You could return a string =
stringlist.text and assign it to a local stringlist.<BR><BR>Jeremy Coulter
wrote: <o:p></o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Hi All. This is a question that
might be infulenced by some serious lack of sleep
:-)<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">I have a funtion. Its return result
is a TStringlist.<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">In my code I create
a TStringlist then add my values to it, then pass this to the RESULT
varaible for the function.<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Now, this is prob. an obvious
answer than I prob. do actually know, but if I
got:-<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">sResult :=
TStringList.create;<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">sResult.add('blah');<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Result:=sResult;<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Then if I free sResult, then I loss
the values I added, and the result is empty as you would
expect.<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">But the issue I have is, so if I
DONT free sResults, what happens to it? Surley it stays in memory,a dn I would
end up with a memory leack after repeaditive calls. Is that right? Or is because
the variable is function specific its free by default
etc?<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Its a basic question I know....but
the more I thought about it the more uncertain I became....I really need some
sleep so that prob. the real probelm :-)<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Jeremy<o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Tahoma color=black size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <o:p></o:p></SPAN></FONT></P></DIV><PRE wrap=""><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt"><o:p> </o:p></SPAN></FONT></PRE><PRE style="TEXT-ALIGN: center"><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">
<HR align=center width="90%" SIZE=4>
</SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt"><o:p> </o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">_______________________________________________<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">NZ Borland Developers Group - <st1:place w:st="on">Delphi</st1:place> mailing list<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">Post: <A href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</A><o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">Admin: <A href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</A><o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" color=black size=2><SPAN style="FONT-SIZE: 10pt">Unsubscribe: send an email to <A href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</A> with Subject: unsubscribe<o:p></o:p></SPAN></FONT></PRE>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt">-- <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Rohit
Gupta</SPAN></FONT></B></STRONG><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">B.E. Elec. M.E. Mem IEEE
Associate IEE</SPAN></FONT></B></STRONG><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Technical Manager</SPAN></FONT></B></STRONG><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Computer Fanatics
Limited</SPAN></FONT></B></STRONG><o:p></o:p></P>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Tel</SPAN></FONT></B></STRONG><FONT
face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">
+64 9 4892280</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Fax</SPAN></FONT></B></STRONG><FONT
face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">
+64 9 4892290</SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Email
</SPAN></FONT></B></STRONG><FONT color=#666666><SPAN style="COLOR: #666666"><A
href="mailto:rohit@cfl.co.nz"><FONT face=Verdana color=#0080ff size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #0080ff; FONT-FAMILY: Verdana">rohit@cfl.co.nz</SPAN></FONT></A></SPAN></FONT><o:p></o:p></P>
<P class=MsoNormal><STRONG><B><FONT face=Verdana color=#666666 size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #666666; FONT-FAMILY: Verdana">Web
</SPAN></FONT></B></STRONG><FONT color=#666666><SPAN
style="COLOR: #666666"><A href="http://www.cfl.co.nz/"><FONT face=Verdana
color=#0080ff size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: #0080ff; FONT-FAMILY: Verdana">www.cfl.co.nz</SPAN></FONT></A></SPAN></FONT><o:p></o:p></P>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" color=black size=3><SPAN
style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" color=black size=3><SPAN style="FONT-SIZE: 12pt">
<HR align=center width="100%" SIZE=3>
</SPAN></FONT></DIV></DIV>
<P class=MsoNormal><FONT face=Verdana color=gray size=1><SPAN lang=EN-NZ
style="FONT-SIZE: 7.5pt; COLOR: gray; FONT-FAMILY: Verdana">This email and any
attachments contain information, which is confidential and may be subject to
legal privilege and copyright. If you are not the intended recipient, you must
not use, distribute or copy this email or attachments. If you have received this
in error, please notify us immediately by return email and then delete this
email and any attachments.</SPAN></FONT><FONT face="Courier New" size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
</SPAN><U1:P></U1:P></FONT><o:p></o:p></P></DIV></DIV></BODY></HTML>