Una opción:
En el archivo DB.PAS está definido este tipo de datos para los estados del DataSet
Código Delphi
[-]
TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
dsInternalCalc, dsOpening);
Puedes crear un arreglo que contenga los estados en cadenas de caracteres, pero respetando el mismo orden en el que están definidos
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
const MyArray:array[0..12] of String = ('dsInactive', 'dsBrowse', 'dsEdit',
'dsInsert', 'dsSetKey', 'dsCalcFields', 'dsFilter', 'dsNewValue', 'dsOldValue',
'dsCurValue', 'dsBlockRead', 'dsInternalCalc', 'dsOpening');
begin
ShowMessage(MyArray[Ord(IBQuery1.State)]);
end;
Saludos