Erhalte richtige Bytes, das if wird nicht durchlaufen

[Daniel B]

Hallöchen,

ich erhalte zwar die richtigen Bytes, aber ins else if komme ich trotzdem nicht rein! Warum?

Delphi-Quellcode:

ShowMessage(IntToStr(Byte(sCom[1])) + IntToStr(Byte(sCom[2])));
if ((sCom[1] = #106) and ((Byte(sCom[2]) and 0) = 0)) then
begin
  ShowMessage('Falsches Byte');
end
else if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) = 32)) then
begin
 ShowMessage('Richtiges Byte');
end; //if

Ich erhalte auch die Bytes #106#32, aber in den else Teil komme ich einfach nicht rein, sondern in den if Teil mit der Message, Falsches Byte.
Es macht auch keinen Unterschied ob ich es mit
((Byte(sCom[2]) and 32) = 32))
oder
((Byte(sCom[2]) and 32) <> 0))
mache!
Was ist nur Falsch?
Vielen Dank.

Grüsse, Daniel

[CalganX]

Wenn ich dich richtig verstanden habe, dann musst du nur das else wegnehmen...

Chris

[Daniel B]

Zitat von Chakotay1308:

Wenn ich dich richtig verstanden habe, dann musst du nur das else wegnehmen...

Nee, wenn ich zwei einzelne Ifs mache, dann komme ich in gar keinem rein.

Grüsse, Daniel

[jbg]

Zitat:

(Byte(sCom[2]) and 0) = 0)

Was willst du den damit machen?

Mal ein kleines Beispiel:

Delphi-Quellcode:

AND  1  0
  1  1  0
  0  0  0

Daraus ergibt sich:
1010101
0000000
-------
0000000

Die Bedingung (irgendwas AND 0) = 0 ist also immer True.

[Daniel B]

Jetzt wo Du es sagst.
Aber trotzdem, ich muss einmal prüfen ob die Bytes #106#0 sind, dann soll die Message kommen, oder wenn die Bytes #106#32 lauten, dann die andere Message. Oder besser gesagt, Das Bit 6 der Adresse 106 auf 1 ist oder nicht!
Hab das oben geändert, jedoch bringt mir das jetzt andere Probleme.
Das
ShowMessage(IntToStr(Byte(sCom[1])) + IntToStr(Byte(sCom[2])));
kommt ständig, mit der Ausgabe 1060. Jedoch wird kein If ausgeführt.

Grüsse, Daniel

[janjan]

Probiers mal so:

Delphi-Quellcode:

ShowMessage(IntToStr(Byte(sCom[1])) + IntToStr(Byte(sCom[2]))); 
if (sCom[1] = #106) and (Byte(sCom[2])  = #0) then 
begin 
  ShowMessage('Falsches Byte'); 
end 
else if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) <> 0)) then 
begin 
ShowMessage('Richtiges Byte'); 
end; //if

Oder mach sowas in die Richtung:

Delphi-Quellcode:

if (sCom[1] = #106) then
  begin
    if Byte(sCom[2]) = #0 then 
      begin
        ShowMessage('Falsch');
      end;
    if (Byte(sCom[2]) and 32) <> 0 then 
      begin
        ShowMessage('Richtig');
      end;
  end;

[Daniel B]

Ich hab mal die Reihenfolge der if geändert und jetzt geht es.

Delphi-Quellcode:

        if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) <> 0)) then
        begin
          ShowMessage('Richtiges Byte!');
        end
        else
        begin
          ShowMessage('Falsches Byte!');
        end; //if

Das klappt wunderbar, aber die Idee mit den Verschachtelten Ifs würde warscheinlich auch gehen.
Danke Euch!

Grüsse, Daniel