Loop through TStringList 1

[lespaul]

Is there any way to loop through a TStringList? I have a procedure that fills in the list with a unique id. I like to perform a query using the values in the List as query criteria:

For i := 0 to JurorList.Count - 1 do
begin
  DataMod.qry.SQL.Clear;
  DataMod.qry.SQL.Add('UPDATE TABLE1 SET FREE = '' WHERE JURNUM = ' + JurorList.(value of list at index(i)));
  DataMod.qry.ExecSQL;
end;

Is something like this possible?

FYI - I couldn't perform a search since the search was down for maintenance. The answer may be out there somewhere, but if the server's down, it's going to stay out there!

Thanks!
Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

 

[Zathras]

Absolutely! You can use a TStringList just like a string array if you want:

For i := 0 to JurorList.Count - 1 do
begin
  DataMod.qry.SQL.Clear;
  DataMod.qry.SQL.Add('UPDATE TABLE1 SET FREE = '' WHERE JURNUM = ' +

JurorList[i]

);
  DataMod.qry.ExecSQL;
end;

 

[lespaul]

Knew it had to be something simple!!!

Thanks! Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!