Error en Array

[Jere_84]

Gracias Al...

Anda perfecto sabes como podría consultar estos datos ya que en otra parte de mi codigo hago algo asi:

Código Delphi [-]
procedure TvFormuABMCiuda.JfEditValorBuscaChange(Sender: TObject);
begin
   if JfRadioGroupTipoBusca.Value = 1 then
    if (JfEditValorBusca.InputText = '') then
    begin
      DataModuleCiuda.ADODataSetCiudad.Filtered := False;
      DataModuleCiuda.ADODataSetCiudad.Filter := '';
    end
    else
    begin
      if BaseFieldTypes[JfComboBoxCampoBusca.ItemIndex] = ftString then
        DataModuleCiuda.ADODataSetCiudad.Filter := JfComboBoxCampoBusca.Value + ' LIKE ' + QuotedStr(JfEditValorBusca.InputText + '*' )
      else
        DataModuleCiuda.ADODataSetCiudad.Filter := JfComboBoxCampoBusca.Value + ' = ' + QuotedStr(JfEditValorBusca.InputText);
      DataModuleCiuda.ADODataSetCiudad.Filtered := True;
    end;

end;

Y me gustaría ver lo que se cargo en el BaseFieldTypes para ver que coincida con el campo que tengo en el combo...

[ecfisa]

Empezado por Jere_84

...
Y me gustaría ver lo que se cargo en el BaseFieldTypes para ver que coincida con el campo que tengo en el combo...

Hola Jere_84.

Código Delphi [-]
...
implementation

uses  TypInfo;

type
  TArrayFieldTypes = array of TFieldType;

var
  BaseFieldTypes : TArrayFieldTypes;

procedure GetFieldsTypes(aft: TArrayFieldTypes; ts: TStrings);
var
  i: Integer;
begin
  for i:= Low(aft) to High(aft) do
    ts.Add(GetEnumName(TypeInfo(TFieldType), Ord(aft[i])))
end;
...

Llamada ejemplo:

Código Delphi [-]
   GetFieldsTypes(BaseFieldTypes, ListBox1.Items);

Saludos.

[Jere_84]

Muchisimas gracias lo voy a testear esta noche en mi maquina...

Saludos.