boa tardeGalera estou come�ando a usar o delphi XE e estou com um probleminha [code]var Buffer: array[0..dsMaxStringSize] of Char;begin StrLCopy(Buffer, PChar(Value), Size); if Tra...

F�rum ponteiros no delphi XE 3 #452202

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

Curtir t�pico

+ 0

Responder