Bitabfrage aus Hexstring

[BTeam]

Hallo,
Ich habe da ein kleinen Problem. Ich versuche mal die Sache zu beschreiben.
Ich habe ein String das eine Hex Zahl ist So ein Hex String sieht dann z.B. so aus 01040. Dieser Hex String wird durch Setzen von Bits/Flags erzeugt.

Die Flags die sehen so aus
0001, 0002, 0004, 0008, 0010, 0020, usw

Nun muss ich feststellen ob in dem Hex String z.B. 0010 gesetzt wurde oder nicht.
Wie stelle ich das an ?

Thx schon mal für die Hilfe

[Muetze1]

Moin!

Einfach ausmaskieren...

Code:

  If ( Wert And $0020 ) = $0020 Then
    // gesetzt
  Else
    // nicht gesetzt

MfG
Muetze1

[BTeam]

hmm...ok ich habe es so gemacht

Code:

IF (StrToHex(Liste.Cells[5,Liste.RowCount-2]) AND $02000) = $02000 THEN
  Label10.Caption := 'Gesetzt'
ELSE
  Label10.Caption := 'Nicht Gesetzt';

Delphi meint dann immer nur "Inkompatible Typen: 'String' und 'Integer'"
?

[nailor]

Delphi-Quellcode:

IF ((StrToHex(Liste.Cells[5,Liste.RowCount-2])) AND $02000) = $02000 THEN
  Label10.Caption := 'Gesetzt'
ELSE
  Label10.Caption := 'Nicht Gesetzt';

oder

Delphi-Quellcode:

IF (StrToHex(Liste.Cells[5,Liste.RowCount-2])) AND $02000 = $02000 THEN
  Label10.Caption := 'Gesetzt'
ELSE
  Label10.Caption := 'Nicht Gesetzt';

[Muetze1]

Moin!

Man muss die Werte nicht in "hex" umrechnen - die hexadezimale Schreibweise ist... naja, nur eine Schreibweise. Daher:

Delphi-Quellcode:

IF ((StrToInt(Liste.Cells[5,Liste.RowCount-2])) AND $02000) = $02000 THEN
  Label10.Caption := 'Gesetzt'
ELSE
  Label10.Caption := 'Nicht Gesetzt';

Ach ja, nochwas: wenn in der Zelle wirklich nur 00A0 z.B. drinne steht als String, dann muss man es so machen, weil sonst erkennt StrToInt() den String nicht als Hexwert sondern als Wert in dezimaler Schreibweise...

Delphi-Quellcode:

IF ((StrToInt('$' + Liste.Cells[5,Liste.RowCount-2])) AND $02000) = $02000 THEN
  Label10.Caption := 'Gesetzt'
ELSE
  Label10.Caption := 'Nicht Gesetzt';

MfG
Muetze1

[BTeam]

Prima so geht....ich danke euch.

[BTeam]

Noch eine Frage ^^
Wie kann ich in dem Hex String Flags/Bits setzte und entfernen?
thx

[Muetze1]

Moin!

Eigentlich habe ich hier so gesehen, neue Frage, neuer Thread...

Grundsätzlich das Abfragen mit der logischen AND Verknüpfung hast du ja nun. Setzen von Bits mit einer OR Verknüpfung (WertNeu := WertAlt Or $0020) und löschen mit einer AND Verknüpfung von logisch invertierten Wert (WertNeu := WertAlt And (Not $0020)).

MfG
Muetze1