Pytanie : can#t Kompilować PNG Wizerunek Wyzwolenie

pewny dlaczego ten kod z D7 kompilator i D2010 kompilator 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

 {Odbitkowy ímages z paleta using kawałek głębia (1), 4 lub 8}
procedura TChunkIDAT.CopyInterlacedPalette148 (const Przepustka: Bajt;
  Src, Dest, Trans {$IFDEF Store16bits}, Dodatek {$ENDIF}: pChar);
const
  BitTable: Szyk [1..8] Integer = ($1, $3, (0), $F, (0), (0), (0), $FF);
  StartBit: Szyk [1..8] Integer = (7, (0), (0), 4, (0), (0), (0), (0));
var
  CurBit, Col: Integer;
  Dest2: PChar;
zaczynać
  {Dostawać pierwszy kolumna i wchodzić do w pętla}
  Col: = ColumnStart [Przepustka];
  powtórka
    {Odbitkowy dane}
    CurBit: = StartBit [Header.BitDepth];
    powtórka
      {Przystosowywać pointer piksel bajt granica}
      Dest2: = pChar (Longint (Dest) + (Header.BitDepth * Col) div 8);
      {Odbitkowy dane}


        {$IFDEF VER210}
        Dest2^: = Dest2^ lub
        (((Bajt (Src^) shr CurBit) i BitTable [Header.BitDepth])
          shl (StartBit [Header.BitDepth] - (Col * Header.BitDepth mod 8)));        /// < - pluskwa using Delphi 2010….
       {$else}
         Bajt (Dest2^): = Bajt (Dest2^) lub
        (((Bajt (Src^) shr CurBit) i BitTable [Header.BitDepth])
          shl (StartBit [Header.BitDepth] - (Col * Header.BitDepth mod 8)));
       {$endif}



      {Ruch następny kolumna}
      inc (Col, ColumnIncrement [Przepustka]);
      {Czytać następny kawałek}
      dec (CurBit, Header.BitDepth);
    do CurBit < (0);

    {Ruch następny bajt w źródło}
    inc (Src);
  do Col >= ImageWidth;
końcówka;
Attachments:
pngimage.pas (186 KB) (Kartoteka Typ Szczegół)
version PNG wizerunek wyzwolenie, dla D7 i D2010

Odpowiedź : can#t Kompilować PNG Wizerunek Wyzwolenie

ten sam rozwiązanie the inny problem: zamieniać pChar z pByte
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

{Odbitkowy ímages z paleta using kawałek głębia (1), 4 lub 8}
procedura TChunkIDAT.CopyInterlacedPalette148 (const Przepustka: Bajt;
  Src, Dest, Trans {$IFDEF Store16bits}, Dodatek {$ENDIF}: pByte); //<> = ImageWidth;
końcówka;
Inne rozwiązania  
 
programming4us programming4us