Enumerado

[Guillermo80]

Cuando asignas el tamaño del array creo que lo que hay que poner es el tamaño máximo que van a ocupar las cadenas, yo digo que sería así:

type

FLAC__StreamEncoderState = (FLAC__STREAM_ENCODER_OK,
FLAC__STREAM_ENCODER_UNINITIALIZED,
FLAC__STREAM_ENCODER_OGG_ERROR,
FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR,
FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA,
FLAC__STREAM_ENCODER_CLIENT_ERROR,
FLAC__STREAM_ENCODER_IO_ERROR,
FLAC__STREAM_ENCODER_FRAMING_ERROR,
FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR);

const

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of String[50] =
('FLAC__STREAM_ENCODER_OK',
'FLAC__STREAM_ENCODER_UNINITIALIZED',
'FLAC__STREAM_ENCODER_OGG_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA',
'FLAC__STREAM_ENCODER_CLIENT_ERROR',
'FLAC__STREAM_ENCODER_IO_ERROR',
'FLAC__STREAM_ENCODER_FRAMING_ERROR',
'FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR');

Por lo menos en el ejemplo que vi en el libro de Delphi4 la reserva hacía alusión al tamaño de la cadena de mayor longitud, en este caso sería

'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA'

La única duda que me queda es que si debería cambiar la declaración de:

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of String[50]

Por esta otra, siguiendo tu propuesta, ixMike:

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of PChar[50]

¿Cómo lo ves?