ponteiros no delphi XE 3

Delphi

16/08/2013

boa tarde

Galera estou começando a usar o delphi XE e estou com um probleminha 

var
  Buffer: array[0..dsMaxStringSize] of Char;
begin
      StrLCopy(Buffer, PChar(Value), Size);
      if Transliterate then
         DataSet.Translate(PAnsiChar(Buffer[Size]), PAnsiChar(Buffer[Size]), True);

     SetData(@Buffer);
end;


esse codigo no delphi 7 funciona, mas no delphi XE ele está me retornando apenas a primeira posição do que eu digito,
ex: se eu digitar testando; ele me traz apenas o "T"

Agradeço desde Já
Obrigado
Marcelo F

Marcelo F

Curtidas 0
POSTAR