title image


Smiley Re: Habs doch noch schnell probiert, aber...
Auf ein neues:-)



function BinToInt(Value: string): Integer;

var

i, iValueSize: Integer;

begin

Result := 0;

iValueSize := Length(Value);

for i := iValueSize downto 1 do

if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));

end;

Gruß Thomas


Was ist der Unterschied zwischen Bill Gates und Gott?

  -->Gott hält sich nicht für Bill Gates!




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: