Questione : Il movimento di liberazione di immagine del png, non può compilare con D2010

Ho provato a compilare il movimento di liberazione di immagine del png con Delfi 2010 da http://pngdelphi.sourceforge.net.
Gli arresti del compilatore, a causa del non possono di assegnare un valore all'errore della parte di sinistra a questa linea:

      Byte (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);

compilare quel movimento di liberazione ed il funzionamento con D7 è stato problema 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedura TChunkIDAT.CopyInterlacedRGB8 (passaggio del const: Byte;
  Src, Dest, trasporto {$IFDEF Store16bits}, supplementare {$ENDIF}: pChar);
varietà
  Colonna: Numero intero;
cominciare
  {Ottenere la prima colonna ed entrare nel ciclo}
  Colonna: = ColumnStart [passaggio];
  Dest: = pChar (Longint (Dest) + colonna * 3);
  ripetizione
    {Copiare questa fila}
    Byte (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);
    Byte (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc (Dest);
    Byte (Dest^): = ^ di fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Movimento verso la colonna seguente}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [passaggio] * 3 - 3);
    inc (colonna, ColumnIncrement [passaggio]);
  fino al >= ImageWidth della colonna;
estremità;
Collegamenti:
 
pngextra.pas (9 Kb) (tipo di lima particolari) 
png libarary
 
 
pngimage.pas (183 Kb) (tipo di lima particolari) 
png libarary
 
 
pnglang.pas (21 Kb) (tipo di lima particolari) 
png libarary
 
 
zlibpas.pas (4 Kb) (tipo di lima particolari) 
png libarary
 

Risposta : Il movimento di liberazione di immagine del png, non può compilare con D2010

Sostituire pChar da pByte, esso funzionerà come un fascino
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedura TChunkIDAT.CopyInterlacedRGB8 (passaggio del const: Byte;
  Src, Dest, trasporto {$IFDEF Store16bits}, supplementare {$ENDIF}: pByte);
varietà
  Colonna: Numero intero;
cominciare
  {Ottenere la prima colonna ed entrare nel ciclo}
  Colonna: = ColumnStart [passaggio];
  Dest: = pByte (Longint (Dest) + colonna * 3);
  ripetizione
    {Copiare questa fila}
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc (Dest);
    Dest^: = ^ di fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Movimento verso la colonna seguente}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [passaggio] * 3 - 3);
    inc (colonna, ColumnIncrement [passaggio]);
  fino al >= ImageWidth della colonna;
estremità;
Altre soluzioni  
 
programming4us programming4us