Cita:
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.