var s :string;
i, j : integer;
n : integer;
begin
s := '01100001';
j := length(s);
n := 0;
for i := 1 to j do
begin
n := n + strtoint(s[i]) shl (j -i);
end;
ShowMessage(Chr(n));
end;
i, j : integer;
n : integer;
begin
s := '01100001';
j := length(s);
n := 0;
for i := 1 to j do
begin
n := n + strtoint(s[i]) shl (j -i);
end;
ShowMessage(Chr(n));
end;