二进制字符串与十进制的转换

此函数没有查到，好象Delphi未提供，本算法根据其转换方法而写：

procedure TForm1.FormCreate(Sender: TObject);
var
  v:string;
  i,j:Integer;
  k:Integer;
begin
  //二进制字符串转十进制
  v:='100101001'; //297
  j:=0;
  k:=0;
  for i:=Length(v) downto 1 do
  begin
    if v[i]='1' then
      k:=k+power(2, j);
    j:=j+1;
  end;
  //ShowMessage(FloatToStr(k));

  //十进制转二进制字符串
  k:=299; //100101011
  v:='';
  while k>1 do
  begin
    v:=IntToStr(k mod 2)+v;
    k:=k div 2;
  end;
  v:=IntToStr(k)+v;
  //ShowMessage(v);
end;