Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

iXaDe

Pegar o caractere de uma string e colocar em um Array Integer

Recommended Posts

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

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

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.