<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="cid:filelist.xml@01C82057.845389D0">
<title>Hi</title>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Print</w:View>
<w:Zoom>BestFit</w:Zoom>
<w:EnvelopeVis/>
<w:DoNotOptimizeForBrowser/>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0in;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:11.0pt;
        mso-bidi-font-size:12.0pt;
        font-family:Arial;
        mso-fareast-font-family:"Times New Roman";}
@page Section1
        {size:8.5in 11.0in;
        margin:1.0in 1.25in 1.0in 1.25in;
        mso-header-margin:.5in;
        mso-footer-margin:.5in;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style>
</head>
<body lang=EN-US style='tab-interval:.5in'>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>Hi</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>In my pursuit of learning at least some
Delphi, I have this challenge for which I would appreciate some help.<span
style="mso-spacerun: yes"> </span></span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>I am having a little difficulty with this
part of an expression-</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>while not PSQLQuery1.EOF do</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>begin</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>i := TIntegerField ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>i.value:=
PSQLQuery1.FieldByName('Count').AsInteger ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>Edit1.Text(Integer);</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>I am importing data from a PostgreSQL
database and processing the information one row at a time. It works quite well
as far as I have gone. I want to control the process by taking the count of the
rows left unprocessed (greater than zero) before importing the next row.</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>The full expression follows –</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>Bob Pawley</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>var </span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'>i : integer</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>begin</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.Close;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Clear;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Add ('Select Count
(Loop_ID)');</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Add ('FROM
P_ID.Loops, Project.Project');</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Add ('Where
P_ID.Loops.IDW_Loop_ID is null');</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Add ('and
P_ID.Loops.P_ID_ID = Project.Project.P_ID_ID');</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.SQL.Add ('and
Project.Project.P_ID_Name = :P_ID_Name ') ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes">
</span>PSQLQuery1.ParamByName('P_ID_Name').AsString := DBEdit2.Text;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.Prepare;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.Open;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.First ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>while
not PSQLQuery1.EOF do</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>begin</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>i := TIntegerField ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>i.value:=
PSQLQuery1.FieldByName('Count').AsInteger ;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>Edit1.Text(Integer);</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>while i >0 do</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>BitBtn1MouseUp2(Sender, Button, Shift, X,
Y);</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>PSQLQuery1.Next;</span></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><![if !supportEmptyParas]> <![endif]></span><o:p></o:p></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:11.0pt'><span
style='mso-bidi-font-size:12.0pt'><span style="mso-spacerun:
yes"> </span>end;</span></span></font></p>
</div>
</body>
</html>