boolarrtostr ???

[braingrenade]

Ich glaub ich steh grad auf dem Schlauch !!
Meint ihr das so :

Delphi-Quellcode:

function Tbitcrypt.boolarrtostr(ba : Tboolarr): string;
var i,i2 : integer;
    buf,b : string;
begin
buf:=''; // das is neu
for i := 0 to high(ba) do
begin
 if ba[i] = true then buf := buf +'1'
 else buf := buf + '0';
end;
result := '';
b:=''; // und das is neu
i:=1;
i2:=0;
repeat
 if i2 = 8 then
  begin
   i2 :=0;
   result := result+ char(bintobyte(b));
   b := '';
  end;
 b := b+buf[i];
 i2 := i2 +1;
 i:=i+1;
until i = length(buf)+2;
end;

?