Como ler Essa String ? #0´N´0´o´0´m´0´e´
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 ?
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
Curtidas 0
Respostas
Aroldo Zanela
23/01/2007
Colega,
Tenta sem as aspas simples.
if char(sValue[i]) <> ´0´ then
Tenta sem as aspas simples.
GOSTEI 0
Massuda
23/01/2007
Você está tentando ler uma string WideString/Unicode usando um string. O melhor é converter para string usando WideCharLenToString()...
sValue := WideCharLenToString(PWideChar(p), FieldSize);
GOSTEI 0