Ver Mensaje Individual
  #5  
Antiguo 25-04-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Jere_84 Ver Mensaje
...
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita