<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#ffffff">
I ONLY use it with record structures. It is a real pain in the arse
when visually debuging code and totally unnecessary.<br>
<br>
Todd.<br>
<blockquote cite="mid:003801cbb91d$7201ecb0$5605c610$@co.nz" type="cite">
<div class="WordSection1">
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p>There
are very, very, VERY (one more time: <b><i>VERY</i></b>) few occasions
when <b>with</b> should be used, but one that I see no problem with
[sic] is:<o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
with SomeComboBox do<o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
ItemIndex := Items.IndexOf( someStringValue );<o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">(or
at least I do when working with combobox/list classes that don’t
provide a more convenient way of selecting an item by value, rather
than index)<o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: Wingdings; color: rgb(31, 73, 125);">J</span><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<div>
<div
style="border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US"> <a class="moz-txt-link-abbreviated" href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a>
[<a class="moz-txt-link-freetext" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>] <b>On Behalf Of </b>Alister
Christie<br>
<b>Sent:</b> Friday, 21 January 2011 16:11<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] Variables stored<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">With is pretty dangerous because of scoping
issues - and it breaks all the refactorings. I'd like to see a "with f
: MyDataModule.MyDataSet do" or similar construct. I believe there is
something like this in Prism.<br>
<br>
<br>
<br>
<o:p></o:p></p>
<pre>Alister Christie<o:p></o:p></pre>
<pre>Computers for People<o:p></o:p></pre>
<pre>Ph: 04 471 1849 Fax: 04 471 1266<o:p></o:p></pre>
<pre><a moz-do-not-send="true" href="http://www.salespartner.co.nz">http://www.salespartner.co.nz</a><o:p></o:p></pre>
<pre>PO Box 13085<o:p></o:p></pre>
<pre>Johnsonville<o:p></o:p></pre>
<pre>Wellington <o:p></o:p></pre>
<p class="MsoNormal"><br>
On 21/01/2011 3:32 p.m., Ross Levis wrote: <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">Yes. But I have done
things like this.</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> </span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">procedure DoSomething;</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">begin</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> with MainForm do</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> begin</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> …</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> end;</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">end;</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> </span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">Definitely lazy.</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> </span><o:p></o:p></p>
<div>
<div
style="border-style: solid none none; border-color: -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US"> <a moz-do-not-send="true"
href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a>
[<a moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>]
<b>On Behalf Of </b>John Bird<br>
<b>Sent:</b> Friday, 21 January 2011 3:17 PM<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] Variables stored</span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"> <o:p></o:p></p>
<div>
<div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">Lazy? or
simpler and convenient?</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">plain
functions that might be useful anywhere in any program are best done
like this I would think. Examples are in Delphi units afterall, eg
StrUtils</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">John</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">I
use some global variables. I also have what I assume are other bad
habits like creating plain functions or procedures instead of declaring
them inside the form class. Just lazy.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Ross.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<div>
<div
style="border-style: solid none none; border-color: -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US"> <a moz-do-not-send="true"
href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a>
[<a moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>]
<b>On Behalf Of </b>Jolyon Smith<br>
<b>Sent:</b> Friday, 21 January 2011 9:44 AM<br>
<b>To:</b> 'NZ Borland Developers Group - Delphi List'<br>
<b>Subject:</b> Re: [DUG] Variables stored</span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Assignable
typed constants are pointless.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">If
you are going to declare a constant and then use a compiler switch to
make it behave like a variable, then be honest and just use a variable!!</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Typed
constants cannot even be used where “normal” constants can be:</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
const</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
ONE: Integer = 1;</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
procedure Foo(aIndex: Integer = ONE); // ERROR: Constant expression
expected</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">or:</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
case iValue of</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
ONE: ; // ERROR: Constant expression expected</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
end;</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Remove
the type declaration from the ONE const, and both compile just fine
(note that this is independent of the Assigned Typed Constants compiler
setting).</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">A
typed constant is to all intents and purposes a variable, and might as
well be declared as such (note that you can initialise a unit variable
as part of it’s declaration):</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
var</span><o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">
ONE: Integer = 1;</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">One
final comment – Delphi really has no concept of a “global” variable.
The highest visibility is “unit variable”. You still have to
explicitly “use” a unit to bring it into scope, and if two units
declare variables of the same name normal scoping rules apply but you
can explicitly qualify a reference using the unit name if you need to
override the default scope.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Most
of the time global/unit variable is close enough that the distinction
doesn’t matter, but when it comes to dogma the old rules that “global
variables are the spawn of Satan himself” needs to be tempered in
Delphi with the fact that they are a bit better “behaved” than the sort
of global variable that those ritualistic rules were originally devised
for.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">However,
it is still true that the occasions when a unit variable is called for
are relatively few, but they should not be simply outlawed for being
something they are not.</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: Wingdings; color: rgb(31, 73, 125);">J</span><o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal"> <o:p></o:p></p>
<div>
<div
style="border-style: solid none none; border-color: -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US"> <a moz-do-not-send="true"
href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a>
[<a moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>]
<b>On Behalf Of </b>Robert martin<br>
<b>Sent:</b> Friday, 21 January 2011 09:18<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] Variables stored</span><o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"> <o:p></o:p></p>
<p class="MsoNormal">Hi John<br>
<br>
While all you suggest may be true (I don't know about the compiler
setting stuff) I would strongly recommend anybody starting out with
programming / delphi avoids using global variables. Its a nasty habit
to get into :) <br>
<br>
Also the compiler setting you talk about sounds dangerous as someone
who didn't know about it could become highly confused looking at the
code or trying to compile it on a fresh install of Delphi !<br>
<br>
Also note I changed the typo spelling of the subject because it was
annoying me :)<br>
<br>
Cheers<br>
Rob<br>
<br>
On 21/01/2011 9:04 a.m., John Bird wrote: <o:p></o:p></p>
<div>
<div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">There is
another way as well, you can declare simple global variables –
depending where you declare it determines it’s scope - how visible it
it is.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">In this
example string2 can be seen by any unit that uses this one, just as
Form11 (the particular instance of TForm11, and is also a global
variable) is visible.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">String3
can be seen by all procedures in this unit, but not by anywhere
else. If you have lots of simple variables to store and they don’t
need to be inherited etc this is the simplest way to do it.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">You can
take this further:</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">If I have
lots of constants to declare, or variables to store I create a unit
which is code only (no classes) eg called storeunit and declare all the
constants and variables I want there, any form or unit that wants
access to all these variables just has to add storeunit to its uses
clause. This centralises all such declarations in one place away from
a form and is very tidy. I will often put simple global functions and
procedures in here too, as they also become globally available, eg
various standard ways for formatting dates and strings. Also this
unit can be uses in different projects as well. For this just go to
File/New/Unit and the IDE gives you a new blank unit already to add
stuff to – a simpler unit with no form or class stuff.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">Here
string4 string5 integer1 integer2 integer3 can all be seen from
anywhere that uses Storeunit</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">It depends
on whether you like using global variables or not. Also its a good
idea to use a clear naming convention for such variables.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">There are
other tricks you can do too - you can alter compiler settings to allow
assignable constants for a procedure, then any values assigned here
will be preserved between calls to the procedure. But that seems to
be confusing to me, as it really becomes a variable and not a
constant. I saw that used in and example where the program wanted a
counter of the number of times the procedure was called, and the
counter constant in the procedure was assigned a new value each time
the procedure was called, its quite a tidy way to do that sort of
thing. In this case the scope (visibility) of the variable is totally
limited to the one procedure.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;">type</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> TForm11 = class(TForm)</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> Button1: TButton;</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> procedure
Button1Click(Sender: TObject);</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> private</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> { Private declarations }</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> public</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> { Public declarations }</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> MyString : string;</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> end;</span></tt><span
style="font-family: "Courier New";"><br>
<br>
</span><tt><span style="font-size: 10pt;">var</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> Form11: TForm11;</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;"> string2:
string;</span></tt><span style="font-family: "Courier New";"><br>
<br>
</span><tt><span style="font-size: 10pt;">implementation</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;">uses
storeunit;</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;">{$R *.dfm}</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;">var</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;">string3:
string;</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family: "Courier New";"><br>
<br>
</span><tt><span style="font-size: 10pt;">procedure
TForm11.Button1Click(Sender: TObject);</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;">begin</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;"> MyString := 'Hello,
world!';</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><tt><span style="font-size: 10pt;">
string2:=’Hello world2’;</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal" style="margin-bottom: 12pt;"><tt><span
style="font-size: 10pt;"> string5:=’Hello world5’;</span></tt><span
style="font-family: "Courier New";"><br>
</span><tt><span style="font-size: 10pt;">end;</span></tt><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">unit Storeunit;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">interface</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">var</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">string4:string;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">string5:string;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">integer1:integer;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">integer2:integer;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">integer3:integer;</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">implementation</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Courier New";">end.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">John</span><o:p></o:p></p>
</div>
<div>
<div>
<div>
<div>
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";"> <a
moz-do-not-send="true" href="mailto:marshland@marshland.co.nz"
title="marshland@marshland.co.nz">Marshland Engineering</a> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";">Sent:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";">
Thursday, January 20, 2011 3:45 PM</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";">To:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";"> <a
moz-do-not-send="true" href="mailto:delphi@delphi.org.nz"
title="delphi@delphi.org.nz">delphi@delphi.org.nz</a> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";">Subject:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif";"> [DUG]
Variabels stored</span><o:p></o:p></p>
</div>
</div>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";"> </span><o:p></o:p></p>
</div>
</div>
<div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">Is there a
way to store variables so I can use them from one procedure to
another? </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">I have
been currently storing them in hidden edit.text boxes on the form but
there must be a better way. </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";"> </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span
style="font-size: 10pt; font-family: "Arial","sans-serif";">Cheers
Wallace</span><o:p></o:p></p>
</div>
<div class="MsoNormal" style="text-align: center;" align="center"><span
style="font-family: "Calibri","sans-serif";">
<hr size="2" width="100%" align="center"></span></div>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a moz-do-not-send="true" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><br>
Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a>
with Subject: unsubscribe</span><o:p></o:p></p>
</div>
</div>
</div>
<pre> <o:p></o:p></pre>
<pre> <o:p></o:p></pre>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre>
<pre>Post: <a moz-do-not-send="true"
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre>
<pre>Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre>
<pre>Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<o:p></o:p></pre>
<p class="MsoNormal" style="margin-bottom: 12pt;"> <o:p></o:p></p>
<p class="avgcert">No virus found in this message.<br>
Checked by AVG - <a moz-do-not-send="true" href="http://www.avg.com">www.avg.com</a><br>
Version: 10.0.1191 / Virus Database: 1435/3392 - Release Date: 01/20/11<o:p></o:p></p>
<div class="MsoNormal" style="text-align: center;" align="center"><span
style="font-family: "Calibri","sans-serif";">
<hr size="3" width="100%" align="center"></span></div>
<p class="MsoNormal"><span
style="font-family: "Calibri","sans-serif";">_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a moz-do-not-send="true" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><br>
Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a>
with Subject: unsubscribe</span><o:p></o:p></p>
</div>
</div>
</div>
<pre><o:p> </o:p></pre>
<pre><o:p> </o:p></pre>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre>
<pre>Post: <a moz-do-not-send="true"
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre>
<pre>Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre>
<pre>Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<o:p></o:p></pre>
</div>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: <a class="moz-txt-link-abbreviated" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a>
Admin: <a class="moz-txt-link-freetext" href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a>
Unsubscribe: send an email to <a class="moz-txt-link-abbreviated" href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</pre>
</blockquote>
<br>
</body>
</html>