Hallo,
wie wäre es damit:
Delphi-Quellcode:
function TForm1.Dual2Dezimal(const DualString: String): LongWord;
var
iCnt : Integer;
begin
Result:=0;
For iCnt:=1 to Length(DualString) do
Result:=Result+StrToInt(DualString[iCnt])*Round(IntPower(2,Length(DualString)-iCnt));
end;
math in uses nicht vergessen