文本狂中的内容和二进制的问题

Question

给你两个通用函数：
Procedure StrToByteS(const Str:String;var NameArr :Array of byte);
var I,J :Integer;
Begin
  FillChar(NameArr,high(NameArr)+1,0);
  if length(Str) >high(NameArr) then J :=high(NameArr)
  else J :=length(Str);
  For I:=1 to J do NameArr[I-1]:=byte(Str[I]);
End;Function ByteToStr (NameArr :Array of byte):String;
var I:Integer;
    S:String;
Begin
 Setlength(S,High(NameArr)+1);
 For I:=Low(NameArr) to High(NameArr) do S[I+1]:=Char(NameArr[I]);
 Result :=Pchar(S);
End;

Answer 1

移位运算对整数就行了。文本框中的文本按照二进制转换成整数。
var
    iResultValue:integer;
    strEdit:String;
    i:integer;
begin
    strEdit:=Edit1.Text;
    iResultValue:=0;
    i:=0;
    while (Length(strEdit)>0) do
    begin
      if strEdit[Length(strEdit)]<>'0' then
         inc(iResultValue,Round(Power(2,i)));
      strEdit:=copy(strEdit,1,Length(strEdit)-1);
      inc(i);
    end;
end;iResultValue就是转换后的整数。