Ayuda Suma y Binarios

[ecfisa]

Hola Taylor01, bienvenido a Club Delphi .

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,sum: Integer;
begin
  sum:= 0;
  for i:= 1 to Length(Edit1.Text) do sum:= sum + Ord(Edit1.Text[i]);
  Edit2.Text:= '';
  for i:= 8 {(*)} downto 0 do
    Edit2.Text:= Edit2.Text + Chr(Ord('0') + Integer((sum shr i and 1) <> 0));
end;

(*) o 16,24,... si la suma de los valores ASCII es tan grande como para no poder ser representada con ocho bits.

Saludos