unit ExtendQuersumme;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;

    procedure Button1Click(Sender: TObject);
    procedure quersumme(x:array of integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
type feld=array[1..9] of integer;
   var y:feld ;
       y2:feld ;
       y3:feld ;
       qsumme:feld;
type feld2=array [1..3] of integer;
   var h:feld2;
       d:feld2;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function IntToBin(i: int64): string;
var x: integer;
begin
  if i > 0 then begin
    result := '';
    x := 1;
    while i >= x do begin
      result := inttostr((i and x) div x) + result;
      x := x shl 1;
    end;
  end else result := '0';
end;



procedure tform1.quersumme(x:array of integer);
var s,i,l:integer ;
begin
s:=1;
d[1]:=strtoint(inttobin(x[1])) ;
l:=Length(inttostr(d[1]));
 For i:=1 to l do begin
   y[i]:=d[1] div s mod 10;
   s:=s*10;
  end;

s:=1;
d[2]:=strtoint(inttobin(x[2])) ;
l:=Length(inttostr(d[2]));
For i:=1 to l do begin
   y2[i]:=d[2] div s mod 10;
   s:=s*10;
  end;

s:=1;
d[3]:=strtoint(inttobin(x[3])) ;//[b]Hier zeigt er mir den Error an[/b]
l:=Length(inttostr(d[3]));
For i:=1 to l do begin
   y3[i]:=d[3]div s mod 10;
   s:=s*10;
  end;
l:=Length(inttostr(y[1]));
For i:=1 to l do begin
 qsumme[i]:=y[i]+y2[i]+y3[i];
 listbox1.items.add(inttostr(qsumme[i]));
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
h[1]:=3;
h[2]:=7;
h[3]:=4;
quersumme(h);

end;

end.