[Lazarus-es] Fwd: Error al compilar ZEOSDBO-6.6.6-stable

[Ismael L. Donis Garcia]

Si, si lo puse. Pero lo que me esá diciendo es que le faltan 2 arreglos en esa declaración.

Al archivo Zeos.inc le puse lo que sigue:

// Compilation directives for Lazarus
{$IFDEF FPC}
  {$MODE DELPHI}
  {$INTERFACES COM}
  {$DEFINE VER130BELOW}
  {$DEFINE VER140BELOW}
  // We assume 2 levels is sufficient.
  // The higher the third number in a version, the better... (we hope)
  {$IFDEF VER2_5}
  {$DEFINE FPC2_5UP}
  {$DEFINE FPC2_4UP}
  {$DEFINE FPC2_3UP}
  {$DEFINE FPC2_2UP}
  {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}
  {$ENDIF}
  {$IFDEF VER2_4}
    {$DEFINE FPC2_4UP}
    {$DEFINE FPC2_3UP}
    {$DEFINE FPC2_2UP}
    {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}
  {$ENDIF}
  {$IFDEF VER2_3}
    {$DEFINE FPC2_3UP}
    {$DEFINE FPC2_2UP}
    {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}
  {$ENDIF}

  {$IFDEF VER2_2}
    {$DEFINE FPC2_2UP}
    {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}
  {$ENDIF}

  {$IFDEF VER2_1}
    {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}
  {$ENDIF}

  {$IFDEF VER2}
    {$DEFINE FPC2_UP}
  {$ENDIF}
{$ENDIF}


Saludos Reiterados
=========
|| ISMAEL ||
=========
Website: www.sisconge.byethost15.com

  ----- Original Message ----- 
  From: Jose Daboin 
  To: Spanish version of Lazarus List 
  Sent: Thursday, May 09, 2013 10:11 AM
  Subject: Re: [Lazarus-es] Fwd: Error al compilar ZEOSDBO-6.6.6-stable


  Pegaste esto antes de compilar en el archivo zeos.inc

  {$DEFINE FPC2_5UP}
  {$DEFINE FPC2_4UP}
  {$DEFINE FPC2_3UP}
  {$DEFINE FPC2_2UP}
  {$DEFINE FPC2_1UP}
  {$DEFINE FPC2_UP}




  El 9 de mayo de 2013 08:40, Ismael L. Donis Garcia <ismael en citricos.co.cu> escribió:

    Ante todo Perdon por no haber contestado antes, debido a que no fue hasta ahora que me siento delante de la PC. Por cuestiones de trabajo me encontraba ausente.

    Ya con la solución que me has dado pasó esa parte de la compilación sin problema alguno. Ahora me está dando problemas en el archivo:

    C:\lazarus\components\ZEOSDBO-6.6.6-stable\src\component\ZAbstractRODataset.pas(3116,48) Error: Expected another 2 array elements

    Específicamente en la función:

    procedure TZAbstractRODataset.CheckFieldCompatibility(Field: TField;FieldDef: TFieldDef);

    {$IFDEF FPC}
    const
      BaseFieldTypes: array[TFieldType] of TFieldType = (
        ftUnknown, ftString, ftInteger, ftInteger, ftInteger, ftBoolean, ftFloat,
        ftFloat, ftBCD, ftDateTime, ftDateTime, ftDateTime, ftBytes, ftVarBytes,
        ftInteger, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftUnknown,
        ftString, ftString, ftLargeInt, ftADT, ftArray, ftReference, ftDataSet,
        ftBlob, ftBlob, ftVariant, ftInterface, ftInterface, ftString, ftTimeStamp, ftFMTBcd
        {$IFDEF FPC2_1UP}, ftString, ftBlob{$ENDIF});   

    Me dice que faltan 2 elementos. Si miro la otra que sigue más abajo si tiene los 2 elementos:

    {$ELSE}
     {$IFDEF VER180}
     const
      BaseFieldTypes: array[TFieldType] of TFieldType = (
        ftUnknown, ftString, ftInteger, ftInteger, ftInteger, ftBoolean, ftFloat,
        ftFloat, ftBCD, ftDateTime, ftDateTime, ftDateTime, ftBytes, ftVarBytes,
        ftInteger, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftUnknown,
        ftString, ftString, ftLargeInt, ftADT, ftArray, ftReference, ftDataSet,
        ftBlob, ftBlob, ftVariant, ftInterface, ftInterface, ftString, ftTimeStamp, ftFMTBcd,
        ftFixedWideChar,ftWideMemo,ftOraTimeStamp,ftOraInterval);
     {$ELSE}          

    Que me les debo poner para solucionar este problema?

    Desde Ya Gracias a todos los que de una forma u otra han intentado ayudar.
    =========
    || ISMAEL ||
    =========
    Website: www.sisconge.byethost15.com


      -- 
      Saludos.

      Jose Daboin

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130509/6c4f740e/attachment-0002.html>