1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
procedure TForm_Timbres.SQLLand ;
var
Max,min : integer;
Begin
Temp := 'SELECT DISTINCT cataloguecountry FROM ' + Kataloget + ' ;' ;
If SQLKatalog_element.State <> dsInactive then SQLKatalog_element.Close ;
SQLKatalog_element.SQL.Clear ;
SQLKatalog_element.SQL.Add(temp);
SQLKatalog_element.Prepare;
SQLKatalog_element.Open;
SQLKatalog_element.Active:= true ;
with CmbBx_Land do
Begin
Max := SQLQuery_Katalog.RecordCount;
SQLKatalog_element.First;
for Min := 1 to Max do
begin
if SQLQuery_Katalog.Fields[0].value <> null then
Begin
items.Add ( SQLQuery_Katalog.Fields [0].Value ) ;
SQLKatalog_element.Next;
end
else SQLKatalog_element.Next;
end;
end;
end; |
Partager