SRL Archive - Help and Support

To note, I have tried all of the common signs: for example, binary, % and 0b do not work, nor does #, @, or 0o for octal.


So, is there a secret way or no way?

Not that I know of. Hex isn't Octal, correct? Cause I know it can do hex…

EDIT: Meh, ofcourse hex isn't octal. Don't know what I was thinking :p

Lol :p.

Octal: 0-7

Just look at Yakmans tutorial and you will see it can handle binary..

From: Wizzup?
Just look at Yakmans tutorial and you will see it can handle binary..

That are bitwise operations ^^, i haven't found a way to get the binary of a integer… Of integer of a binary :-(.

X(

From: ruler
X(

Whats that suppose to mean :D

Hmm, it looks like some weird smiley.

Ruler spam…. :p

Bebe spam….:p X)

more spam?

RAWR~!


How to I tell SCAR that this number: 1001, stands for nine in stead of 1,001?

Hey! Rawr is my word! xD

From: R0b0t1
RAWR~!


How to I tell SCAR that this number: 1001, stands for nine in stead of 1,001?

1001 = 9 : ?

Green Eggs and Spam ?

binary 1001 = decimal 9

function BinToDec(Bin:integer):integer;
var mystr:string;
i:integer;
begin
  mystr:= inttostr(bin);
  for i:=length(mystr) downto 1 do
    if mystr[i]='1' then
      result:= result+ round(pow(2.0,(length(mystr)-i)*1.0));
end;

function DecToBin(Dec:integer):integer;
var i:integer;
tmptotal,i2:integer;
mystr:string;
begin
  while not (round(pow(2.0,i*1.0))>Dec) do
    i:=i+1;
  for i2:=i downto 1 do
  begin
    tmptotal:=tmptotal+(round(pow(2.0,(i2-1)*1.0)));
    if not (tmptotal>dec) then
    begin
      mystr:=mystr+'1';
    end else
    begin
      tmptotal:=tmptotal-(round(pow(2.0,(i2-1)*1.0)));
      mystr:=mystr+'0';
    end;
  end;
  result:=strtoint(mystr);
end;

Must be an easier way.

Edit: yup http://delphi.about.com/od/mathematics/a/baseconvert.htm

OMG!