GARANTIR DESCONTO

Fórum Como ler Essa String ? #0´N´0´o´0´m´0´e´ #336666

23/01/2007

0

Preciso ler o conteudo da memória, para isso utilizei o seguinte codigo:
SetLength(sValue, FieldSize);
Move(PWideChar(p)^, sValue[1], FieldSize);

Ele está pegando o tamanho certo, porem faço um for para pegar apenas os caracteres válidos ex. 0$E0´N´0´o´0´m´0´e´0

for i:= 3 to FieldSize do
begin
if char(sValue[i]) <> ´0´ then
sValue2 := sValue2 + sValue[i];
end;

QUando comparo 0 (Nulo) ele entra no if igual ...

Qual sabe como posso resolver isso ?


Mcd

Mcd

Responder

Posts

23/01/2007

Aroldo Zanela

Colega,

if char(sValue[i]) <> ´0´ then 


Tenta sem as aspas simples.


Responder

Gostei + 0

24/01/2007

Massuda

Você está tentando ler uma string WideString/Unicode usando um string. O melhor é converter para string usando WideCharLenToString()...
sValue := WideCharLenToString(PWideChar(p), FieldSize); 



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar