|
Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
|
Re: Bitabfrage aus Hexstring
31. Mai 2004, 21:53
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';
|