Bitabfrage aus Hexstring

[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