Repeatschleife macht Ärger....

[WM_CLOSE]

Warum so kompliziert?

Delphi-Quellcode:

var  
  c:Cardinal;
  s:String;
  i:Integer;
begin
  s:='10100111';
  c:=0;
  for i:=1 to Length(s) do
  begin
    if s[i]='1' then
      c := c or (1 shl (Length(s)-i));
  end;
  showmessage(IntToStr(c));  
end;