Ascii til Bin

Kan du ikke bruge HexToBin();

Brug lommeregner under programmer> Tilbehør.

Fandt i farten denne:
http://sung3.ifsi.rm.cnr.it/~dargaud/Hack/BinToAscii.html

Du bruger Format() med X arg, og HexToBin() så kører det.

-------------------------------------------------
|  1  |  2  |  4  |  8  |  16  |  32  |  64  |  128  |-------------------------------------------------
|  0  |  0  |  0  |  0  |  0  |  0  |  0  |  0  |

Hvis du så vil finde ASCII nr: 93 er det:

-------------------------------------------------
|  1  |  2  |  4  |  8  |  16  |  32  |  64  |  128  |
-------------------------------------------------
|  1  |  0  |  1  |  1  |  1  |  0  |  1  |  0 

Altså
93<>101110100

sorry!

|  1  |  2  |  4  |  8  |  16  |  32  |  64  |  128  |
|  0  |  0  |  0  |  0  |  0  |  0  |  0  |  0  |

ASCII 93:

|  1  |  2  |  4  |  8  |  16  |  32  |  64  |  128  |
|  1  |  0  |  1  |  1  |  1  |  0  |  1  |  0  |

ASCII 93 <> BIN 10111010

ikke helt lige men ideen er god nok :)

Her en funktion som laver en char om til en string[8] fyldt med 1\'er og 0\'er

Type
  s8 = string[8]

function AsciiToBin(const ch: char): s8;
var
  i,x: integer;
begin
  x := integer(ch);
  for i := 0 to 7 do
  begin
    if (x and 1)=1 then result[8-i]:= \'1\' else result[8-i] := \'0\';
    x:= x shr 1;
  end;
end;

Kaldes med f.eks:
  Label1.caption := AsciiToBin(edit1.text[1]);

eller man kan spare lidt ved at ændre for- løkken til:
  begin
    result[8-i] := chr((x and 1) + 48);
    x := x shr 1;
  end;