Problemas migracion Delphi 7 a 2010

[edgwin]

Gracias por responder ...

Estoy conciente del uso del Unicode en Delphi 2010 es por eso que intente hacer un cambio ....

Código Delphi [-]
....
function StreamCRC32(const Stream: TStream; var CRC: Cardinal;
                   const InitCRC:boolean; const Progress: TProgress): Integer;
var Buffer: PChar; --->> AQUI LO CAMBIE POR PANSICHAR
    Count: Integer;
    Size: Integer;
    TotalSize: Integer;
...

Pero no resulto.

Alguna idea?

[donald shimoda]

Empezado por edgwin

Gracias por responder ...

Estoy conciente del uso del Unicode en Delphi 2010 es por eso que intente hacer un cambio ....

Código Delphi [-]
....
function StreamCRC32(const Stream: TStream; var CRC: Cardinal;
                   const InitCRC:boolean; const Progress: TProgress): Integer;
var Buffer: PChar; --->> AQUI LO CAMBIE POR PANSICHAR
    Count: Integer;
    Size: Integer;
    TotalSize: Integer;
...

Pero no resulto.

Alguna idea?

Ese se me paso, pero ahi esta el tema seguro...

vi que hay mas PChar , cambialos todos por PAnsiChar en princiipio, pero analiza que estan haciendo, perdon pero estoy a las corridas ahora no puedo chequearlo..

Suerte!

[Neftali [Germán.Estévez]]

Prueba cambiando la línea:

Código Delphi [-]
   PChar(p):=PChar(p)+1;

Por esta en el procedimiento CalcCRC:

Código Delphi [-]
  PAnsiChar(p):=PAnsiChar(p)+1;

[edgwin]

Muchas gracias a todos.

Cambie todos los PChar por PAnsiChar y funcionó a la perfeccion.

Saludos!