Forum: Programmieren allgemein
by Baeuerle,
3. Sep 2008
@nicodex: Super vielen Dank.
Mir hatte eigentliche "nur" der Typecast Byte(t) gefehlt :-)
Forum: Programmieren allgemein
by Baeuerle,
3. Sep 2008
@Hagen: thx, die Lösung kannte ich schon. Ich möchte aber nicht schleifen.
Suche eine Lösung wie oben angedeutet, leider bekomme ich Sie nicht umgesetzt :-(
Forum: Programmieren allgemein
by Baeuerle,
3. Sep 2008
Danke für den Tip jedoch werde ich nicht ganz daraus schlau, wie müsste das für t (siehe oben) aussehen???
function CNT(Data: TType): Byte;
var val: Byte;
begin
val:=Data^;
Val := Val - ((Val08 shr 1) and $55);
Val := (Val and $33) + ((Val shr 2) and $33);
Val := (Val + (Val shr 4)) and $0F;
Forum: Programmieren allgemein
by Baeuerle,
3. Sep 2008
Hallo
ich habe folgenden Code:
type
TType = (tyA, tyB, tyC, tyD);
var t: TType;
t=;