Dual Dezimal

[Die Muhkuh]

Delphi-Quellcode:

function BinToDec(s:string):int64;
var p:int64;
    i:integer;
begin
p:=0;
for i:=1 to length(s) do
   p:=p*2+ord(s[i])-ord('0');//s[i] must be '0' or '1'
result:=p;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text := IntToStr( BinToDec (Edit2.Text));
end;
end.