RzComboBox加载字典

procedure CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table, condition: string; Flg: Boolean=False);


procedure Tdtm_dm.CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table,
  condition: string; Flg: Boolean);
begin
  try
    with cdsPublic do
    begin
      Close;

      CommandText := ' select RTrim(' + Field1 + ')[a],RTrim(' + Field2 + ')[b] from ' + Table + '  ' + condition;
      Open;
      RzComboBox.Values.Clear;
      RzComboBox.Items.Clear;
      if Flg then
      begin
        RzComboBox.Values.Add('%');
        RzComboBox.Items.Add('全部');
      end;
      while not Eof do
      begin
        RzComboBox.Values.Add(FieldByName('a').AsString);
        RzComboBox.Items.Add(FieldByName('b').AsString);
        Next;
      end;
    end;
  finally

  end;
end;