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

此函数没有查到，好象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;