Por otra parte, la instrucción Ord(Query1.State) te devuelve el índice o la posición de cada elemento dentro del arreglo, otra opción es guardar ese índice, es decir, un entero tomando en cuenta lo siguiente
[0] dsInactive
[1] dsBrowse
[2] dsEdit
[3] dsInsert
...
Saludos
|