Devart Forums

Code: Select all

var
  aQry : TMSQuery;
begin

  if not Assigned(FConnection) then exit;

  aQry := TMSQuery.Create(Self);

  with aQry do
       begin

         Connection:=FConnection;

         FetchAll:=False;
         ParamCheck:=False;
         UniDirectional:=True;

         SQL.Assign(FChoicesSQL);

         FilterSQL:=ReplaceStr(FChoicesSQLFilter.Text,#13,' ');
         FilterSQL:=ReplaceStr(FilterSQL,#10,' ');
         if FilterSQL<>'' then
            Filtered:=True;


         aQry.Prepare;
         Self.Clear;

         Items.BeginUpdate;
         try
            Open;
            while not Eof do
                  begin

                     if not FChoicesIDField.IsEmpty then
                        begin
                          Items.Add(Fields[1].AsString);
                          StoredStrings[RecNo-1]:=FieldByName(FChoicesIDField).AsString
                        end
                     else
                        begin
                          Items.Add(Fields[0].AsString);
                          StoredStrings[RecNo-1]:=Fields[0].AsString
                        end;

                     Next;
                  end;
         except
            on E : Exception do
               ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message);
         end;

         Items.EndUpdate;
       end;

  aQry.Destroy;
  FChoiceItemsLoaded:=True;