unit dbf_str;

interface

{$I dbf_common.inc}
{$I dbf_str.inc}

implementation

initialization

  STRING_FILE_NOT_FOUND               := 'Apertura: archivo no encontrado: "%s".';
  STRING_VERSION                      := 'TDbf V%d.%d';
  // todo: translate me
  STRING_FEATURE_NOT_SUPPORTED_THIS_TABLELEVEL := 'This feature is not supported in tablelevel %d';

  STRING_RECORD_LOCKED                := 'Registro bloqueado.';
  STRING_WRITE_ERROR                  := 'Error de escritura. (Disco lleno?)';
  STRING_WRITE_INDEX_ERROR            := 'Error de escritura; índices probablemente corruptos. (Disco lleno?)';
  STRING_KEY_VIOLATION                := 'Violación de clave. (Clave ya presente en archivo).'+#13+#10+
                                         'Indice: %s'+#13+#10+'Registro=%d Clave=''%s''.';

  STRING_INVALID_DBF_FILE             := 'Archivo DBF inválido.';
  STRING_INVALID_DBF_FILE_FIELDERROR  := 'Archivo DBF inválido. Tipo de campo inválido.'; //todo: check for correctness
  STRING_FIELD_TOO_LONG               := 'Valor demasiado largo: %d caracteres (no puede ser mayor de %d).';
  STRING_INVALID_FIELD_COUNT          := 'Cantidad de campos inválida: %d (debe estar entre 1 y 4095).';
  STRING_INVALID_FIELD_TYPE           := 'Tipo de campo inválido ''%s'' para el campo ''%s''.';
  STRING_INVALID_VCL_FIELD_TYPE       := 'No se puede crear el campo "%s", campo VCL tipo %x no soportado por DBF.';

  STRING_INDEX_BASED_ON_UNKNOWN_FIELD := 'Indice basado en campo desconocido "%s".';
  STRING_INDEX_BASED_ON_INVALID_FIELD := 'Campo "%s" inválido para crear un índice.';
  STRING_INDEX_EXPRESSION_TOO_LONG    := 'Resultado de índice para "%s" demasiado largo, >100 caracteres (%d).';
  STRING_INVALID_INDEX_TYPE           := 'Tipo de índice invalido: solo puede ser string o float.';
  STRING_CANNOT_OPEN_INDEX            := 'No se puede abrir el índice: "%s".';
  STRING_TOO_MANY_INDEXES             := 'No se puede crear el índice: demasiados indices en el archivo.';
  STRING_INDEX_NOT_EXIST              := 'Indice "%s" no existe.';
  STRING_NEED_EXCLUSIVE_ACCESS        := 'Acceso Exclusivo requirido para esta operación.';
end.

