newbie Q. on Table providing a null value to end loop 1

[schultz2146]

All, first time user of this site... have searched all strings relating to tables and null values and could not find the simple answer that is eluding me. Below is a sniped from a formshow:

Begin
repeat
UserNameComboBox.Items.Add(RegForm.UserTableUserName.Text);
RegForm.UserTable.Next;
until RegForm.UserTableUserName.text = ''
end

As u can see I wanted to add all user names from a table into a combobox at runtime.

What has eluded me is the string
*** until RegForm.UserTableUserName.Text = ''
I've tried value <> null and ~ 10 different derivatives of above to no joy.

All I want it to do is produce a true statement. Do loop until end of file.... Any thoughts?

 

[DelphiAaron]

try

with Table do
begin
  DisableControls;
  try
    First;
    while not Eof do
    begin
     { Process each record here }
     Next;
    end;
  finally
    EnableControls;
  end;
end;

Aaron

 

[DelphiAaron]

with disablecontrols you cant access the dbeditbox.text so do it like this

UserNameComboBox.Items.Add(UserTable.fieldbyname('UserName').asstring);

Aaron

 

[schultz2146]

Didn't even think to use the EoF... Thank you for your help.

Richard

 

[MagicFrisbee]

Although not helpful for looping, the following code thingy lets you know when a field value is null:

RegForm.UserTableUserName.IsNull


GIS Programmer
City of Orem, UT

http://gis.orem.org