iXaDe 0 Denunciar post Postado Março 29, 2013 Olá, boa tarde. Estou com problemas na hora de transformar Array Char para Array Integer, e este ser multiplicado por outra Array Integer. Tentei colocar na função para adicionar sozinho mas nem assim funcionou :( Código: FOR i:=1 TO 8 DO BEGIN edAND1.Text := edAND1.Text+IntToStr(A[i] * K[i]); END; FOR i:=9 TO 16 DO BEGIN edAND2.Text := edAND2.Text+IntToStr(A[i] * K[i]); END; FOR i:=17 TO 24 DO BEGIN edAND3.Text := edAND3.Text+IntToStr(A[i] * K[i]); END; FOR i:=25 TO 32 DO BEGIN edAND4.Text := edAND4.Text+IntToStr(A[i] * K[i]); END; Tentei pegar com Lenght(edOcteto1.Text) porém não deu muito certo, pois é necessário utilizar um Array Char, procurei um pouco mais e tinha uma parte para arrayCHAR := Ord(A); Mas na hora de multiplicar ele dava números muito diferentes, era para resultar em 11000000, porém resultava em 01656411546. @EDIT Percebi que o comando ORD pega o ASCII de um Char, porém eu não consegui achar(ainda) um comando que somente transforme Char em Integer, ou Char > String > Integer. Se puder ajudar, agradeço desde já, iXaDe. Compartilhar este post Link para o post Compartilhar em outros sites
Eduardo Alcântara 6 Denunciar post Postado Março 31, 2013 Meu caro. Sua solicitação está muito confusa. Primeiro vamos resolver o código que você mostrou. Qual era sua intenção nesse código? Segundo. O que é transformar uma string em Integer para você? Se você tiver uma string contendo "maçã" o que deve ser a versão Integer de dessa? Aí sim poderemos te ajudar. Compartilhar este post Link para o post Compartilhar em outros sites