String To Byte ...

[cherry]

Hi

Wie mache ich aus einem enzelnen Buchstaben eine Binären Wert?

zb. StrToByte('A') ergibt '00101011' ?

gibts sowas, kann man das machen?

[DeddyH]

Einen String oder ein einzelnes Zeichen?

[s-off]

Hallo,

Delphi-Quellcode:

Function ChrToBin(_Chr: Char): String;
Var
   i: Integer;
Begin
   For i := SizeOf(_Chr) * 8 - 1 Downto 0 Do
      Result := Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);
End;

Edit: Für nen ganzen String musst Dir das dann halt zusammenpuzzlen.

[Union]

Oder auch so:

Delphi-Quellcode:

function CharToBin(AChar : char): string;
var
  i: Integer;
begin
  SetLength(result, 8);
  for i := 1 to 8 do
  begin
    if ((Byte(AChar) shl (i-1)) shr 7) = 0 then
      result[i] := '0'
    else
      result[i] := '1';
  end;
end;

[cherry]

Vielen Dank euch beiden...

das Beispiel von "Union" verstehe ich besser... verwtehe eigentlich alles bis auf byte ( "if ((Byte(AChar) shl (i-1)) shr 7) = 0 then" )

was berwirkt dieses byte dort genau?

[DeddyH]

Das ist ein Typecast auf Byte, damit aus 'A' 65 wird.

[cherry]

:oops: Danke euch allen!

[Kroko1999]

nur mal so zum Verständnis
Titel: String to Byte: geht gar nicht
Titel: Char To Byte: per Chr(Char);
Titel: Char to BinärString: s.o.

[SirThornberry]

Titel: Char To Byte: per Char(Char);

dann ist es ein richtiger Typecast und nicht nur ein Funktionsaufruf.

[Matze]

Zitat:

Zitat von DeddyH

Das ist ein Typecast auf Byte, damit aus 'A' 65 wird.

Anstelle des Typecasts kann man übrigens auch die Funktion Ord nutzen, was s-off macht.