A A A A A A = 65 65 65 65 65 65 = 390

Delphi

24/02/2004

preciso fazer o seguinte...
gravo um arquivo .TXT para transferencia (DIAL UP)... só que eu coloco no inicio do arquivo
um ´campo´ de 10 numeros contendo o codigo ASCII + um numero qualquer ... de todas as letras q contem no .TXT
até aí da tudo certo... ele gera um numero + ou - ... (1093939.33)
quando eu pegar esse arquivo para colocar no banco de dados... preciso pegar esse numero (1093939.33) e fazer a contagem de novo...
tipo, pra essa sequencia de caracteres eu teria...

A A A A A A
65+65+65+65+65+65 = 390

importo tudo por um tMEMO...
como fazer para ... ´copy(memo.lines.text,1,1)´ - sendo que aqui contem uma letra ´A´

tentei o comando:
ord(copy(memo.lines.text,1,1))
e da o erro: [Error] Unit1.pas(37): Incompatible types

ja o ord(´A´) funciona perfeitamente... pq ?

se alguem puder me ajudar...
desde ja agradeço.
até +


Seven

Seven

Curtidas 0

Respostas

Beppe

Beppe

24/02/2004

O Ord aceita apenas tipos ordinais, como Char. Ocorre o erro porque Copy retorna uma string. Para solucionar pode colocar [1] logo após o ) do Copy.


GOSTEI 0
Seven

Seven

24/02/2004

beppe...
deu certinho
obrigado !
[]´s


GOSTEI 0
POSTAR