Thema: Delphi Bin in Dec umwandeln

Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2
  Alt 3. Apr 2003, 19:08
Delphi-Quellcode:
function BinToInt(const S: string): Integer;
var
  Index: Integer;
begin
  Result := 0;
  for Index := Length(s) downto 1 do
    if s[Index] = '1then
      Result := Result or (1 shl (Length(s) - Index);
end;
(Normalerweise verwende ich i anstatt Index, aber das würde hier die Kursivschrift hervorrufen)
  Mit Zitat antworten Zitat