Hexadezimal < > 8 bits

[DeddyH]

Und wenn man bedenkt, dass man einen Boolean auch als 0 für false und 1 für true sehen kann, was fällt Dir dann an Deiner "Binärzahl" auf?

[stay]

Ja xD 8bit - 1 byte - 0,5 word.

Wollte nur sicher gehen, dass es mir wichtig ist 8 getrennte bits in einen byte zusammen zu führen für deinen link. Und das auch in der Richtigen Reihenfolge. Du siehst an meiner Lösung, dass ich es selbst nicht elegant lösen konnte :/

[himitsu]

Erstmal zu if Bit7.checked = true then .
Diese Konstanten sollte man immer nur für Zuweisungen, aber niemals für Vergleicher verwenden,
denn wie bereits bemerkt, besteht ein Delphi-Boolean intern aus einem Byte, wo es 1 Mal das False und 255 Mal ein True Nicht-False gibt.
und bei einem LongBool hast du den Spaß sogar mit 4.294.967.295 Mal dem "True".

i := i + 1;
Wenn man "Binär" rechnen will, dann natürlich mit binären Operatoren ala OR und AND und nicht mit arithmetischen Operatoren ala ADD (+),
denn B := B or $01; // oder 1 arbeitet immer richtig, aber ein B := B + $01; // oder 1 macht Probleme, wenn dieses Bit bereits gesetzt ist.
Aber dafür hast'e ja nun das Tutorial.

Delphi-Quellcode:

var B: Boolean;

B := Boolean(3);  // die Variable könnte mal ausversehn mit einem "unschönen" True aus irgendeiner Funktion raus kommen.

if B = True then ShowMessage('Falsch: True');
if B = False then ShowMessage('Falsch: False');

if B then ShowMessage('Richtig: True');
if not B then ShowMessage('Richtig: False');

PS: TCheckListBox und eine For-Schleife über alle Bits/CheckBoxen.

[stay]

Das macht natürlich Sinn. Hupps. Unabhängig von der Bit Verarbeitung, da muss ich mich erst mal reindenken. Kann ich in lazarus “relativ“ einfach ein byte in eine 2stellige hexadezimal Zahl umwandeln?
IntToHex( x,y ) war ja perfekt, direkt y für 2 Stellen nutzen

[himitsu]

Das sollte in Lazarus wie im Delphi funktionieren .... uralte APIs, das hatte Lazarus/FreePascal zu Beginn fast alles 1:1 übernommen.

Es gibt noch BinToHex (aber Achtung, da ist die Bytefolge anders)
und Format kann auch Hexadezimal.

[p80286]

Delphi-Quellcode:

const
  HX   : array [0..15] of ansichar='0123456789ABCDEF';


function HXTRANS(ib:byte):ansistring;
begin
  result:='  ';
  result[1]:=HX[ib shr 4];
  result[2]:=HX[ib and $0F];
end;

Gruß
K-H

[stay]

Das sieht sehr gut aus, damit bekomme ich aus 0xff ein byte mit 1111 1111 oder?

[himitsu]

Zitat von stay:

Das sieht sehr gut aus, damit bekomme ich aus 0xff ein byte mit 1111 1111 oder?

Nein?

Aus einem Byte mit $FF wird natürlich ein String mit 'FF'.

[p80286]

Zitat von stay:

Das sieht sehr gut aus, damit bekomme ich aus 0xff ein byte mit 1111 1111 oder?

0xFF=0b11111111=255

warum kennen so viele die kleinsten Grundlagen nicht?

Gruß
K-H