String To Byte ...

[DeddyH]

Das war aber nicht die Frage

[Matze]

Er hat "Byte()" nicht verstanden und daraufhin erwähne ich eine Funktion, die das gleiche macht und die er evtl kennt.

Aber nun zurück zum Thema.

[cherry]

Ich hab soeben beide Funktionen getestet:

Also die Funktion von "Union" versteh ich zwar einigermassen, funktioniert aber leider nicht wirklich...
respektive ich erhalte bei fast allen Zeichen die ich umwandle "0111111"...

Die Funktion von "s-off" scheint zu funktionieren. Da habe ich aber mühe beim verstehen. Kann mir die jmd auskommentieren?
wäre echt toll.. Ich will keinen Code verwenden den ich nicht verstehe!

und

Zitat:

DeddyH hat folgendes geschrieben:
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.

Er verwendet aber beides?! :

Delphi-Quellcode:

For i := SizeOf(_Chr) * 8 - 1 Downto 0 Do 
      Result := Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);

[Muetze1]

Union shiftet in die falsche Richtung. Bei einem Byte mit 8 Bits ist schlecht mit um 7 Bits nach links zu shiften, die fallen dann gleich mal weg...

Und um den Prozessor nicht unnötig hin- und hershiften zu lassen, nur damit ein paar Bits überfallen, kann man auch gleich maskieren für das letzte Bit:

Delphi-Quellcode:

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

[Union]

Zitat:

Union shiftet in die falsche Richtung

Das kommt davon wenn man posted ohne vorher zu testenm sorry. Und die Optimierung mit and gefällt mir auch...

[cherry]

ok also mit "and" gehts nun...
und ich glaub ich kappiers sogar...


Und kann mir trotzdem noch mal jmd diese Vprgehensweise erklären?
Result := Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);

[Union]

Das ist vom Prinzip das Selbe, nur langsamer
Es wird immer eine "0" oder eine "1" abhängig vom Ergebnis an das result angehängt.

Delphi-Quellcode:

        Platzhalter für result %s - string
        |  Platzhalter für Byte... Ausdruck %d - integer
        |  |   Array der Werte, mit denen die Platzhalter gefüllt werden sollen
        |  |   |
Format('%s%d', [Result, Byte((Ord(_Chr) And (1 Shl i)) <> 0)]);

Alternativ:
result := result+inttostr(integer((Ord(_Chr) And (1 Shl i)) <> 0))

[cherry]

Ok, ich kappiers ungefähr. Vielen Dank euch allen...

schönes Wochenende euch freaks
8)