programinha de conversão de binarios

[Junior Mucciolo 0]

Bom dia pessoal,

 

É o seguinte, estou amadurecendo uma ideia de um programinha de conversão de binarios, a logica toda eu tenho na cabeça, acontece que nunca trabalhei com array, vai ser minha primeira vez, andei lendo varios tutos mas nada ficou mto claro sobre array, queria saber se existe como eu pegar um valor de um campo .text e desmenbrar ele e jogar para uma array, pois soh assim poderei coloca a logica em pratica, porque estou precisando colocar os numeros em ordem, tipo: 01001, 0=1°, 1=2°,..., obrigado a todos.

 

 

obs: Não estou pedindo nada pronto, soh preciso ter uma luz nessa parte de desmontar o texto e tacar para o array.

 

 

 

obrigado ;)

[Raficcha 1]

claro que tem.

 

veja um exemplo:

 

var
	Vetor: array of byte; 	//aqui declaramos um vetor de bytes (para calculos,
							//você precisa representar os caracteres com seus 
							//respectivos códigos, ou seja, os seus respectivos
							//bytes
	Cont : Integer; //esta é a variavel que utilizaremos no laço de repetição "For"
	Texto : String; //este é o texto que iremos converter para o vetor
begin
	Texto := Edit1.Text; //aqui pegamos o que esta no componete Edit1 e colocamos em "Texto"
	
	SetLength(Vetor, Length(Texto)); //como o nosso vetor é dinamico, configuramos o seu tamanho
	
	for Cont := 0 to Length(Texto)-1 do //percoremos o nosso texto para colocar no vetor. 
										//(Nota: Neste caso o for esta iniciando em 0, pois em
										//vetores dinamicos esta é a primeira posição do vetor
	begin
		Vetor[Cont] := Ord(Texto[Cont]); //a função ord converte um char para seu respectivo código
	end;
	
	//pronto, aqui os valores do texto ja estão em um vetor
end;

Para saber mais sobre códigos dos caracteres, veja a tabela ASCII.