Hallöchen,

komm gerade nicht mit dem Bit-Shiften weiter.

zusammenfalten · markieren

Delphi-Quellcode:

var
  sCom: String;
begin
  repeat
    STC(#113#0);
    STC(#106);
    ComPort1.ReadStr(sCom, 2);
    Application.ProcessMessages;
  until
    ((sCom[1] = #106) and (sCom[2] >= Char(32))); ***
  begin
    BitBtnLesen.Enabled := True;
    BitBtnSchreiben.Enabled := True;
  end;
end;

Es geht um die zeile mit dem ***.
Und zwar hab ich mir folgendes vorgestellt:
((sCom[1] = #106) and (sCom[2] shr 32)); So klappt es nicht.
"[Fehler] Unit1.pas(248): Operator ist auf diesen Operandentyp nicht anwendbar"

Grüsse, Daniel

markieren

Code:

(sCom[1] = #106)

müsste einen boolean geben.

markieren

Code:

(sCom[2] shr 32)

ein Byte.

Hallo,

das bringt mir nichts. Ich lese zwei Bytes. Das erste Byte ist #106 und im zweiten Byte muss ich nachsehen ob das 6te Bit eine 1 ist.

Grüsse, Daniel

until ((byte1 = #106) and ((byte2 and #64 {müsste das sechste bit sein}) = # 64)) testet, ob byte eins 106 ist, und ob im zweiten das sechste bit gesetzt ist. Falls du das meinst.

Zitat von Nailor:

until ((byte1 = #106) and ((byte2 and #64 {müsste das sechste bit sein}) = # 64)) testet, ob byte eins 106 ist, und ob im zweiten das sechste bit gesetzt ist. Falls du das meinst.

Das ist ja im prinzip das gleiche wie:
((sCom[1] = #106) and (sCom[2] >= {Char(32)} #32)); Nur mit dem Unterschied, ich schaue ob der Wert des zweiten Bytes >= 32 ist. Den 32 ist Bit 6.

Grüsse, Daniel

a) ist das ">=" falsch, dann kann ja auch nur das siebte gesetzt sein, du bräuchtest ein "="

b) gibt die erste Aktion (logical Operator) einen boolean, die zweite (bitwise Operation) ein bit. Danach macht das and in der Mitte einen Aufstand, weil schlecht

if true and #27 zu einem vernünftigen Ergebnis führen kann. Bei meiner Version sind beides booleans, und es sollte gehen.

((sCom[1] = #106) and ((sCom[2] and #32) = #32));

Bringt gleichen Fehler wie anfangs.

Grüsse, Daniel

Bei der rechten Hälfte musst du die "#" weglassen. Das "and" verlangt nach Integern.

if ((#106 = #106) and ((33 and 32) = 32)) then close; //beendet das Programm. Wurde von mir getestet und läuft!

if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) <> 0)) then Funktioniert. Man muss den Char nur in ein Byte typecasten. Das "<>0" anstatt dem "=32" spart ein klein wenig rechenzeit, da die interne Substraktion entfällt.

Zitat von jbg:

if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) <> 0)) then Funktioniert. Man muss den Char nur in ein Byte typecasten. Das "<>0" anstatt dem "=32" spart ein klein wenig rechenzeit, da die interne Substraktion entfällt.

Danke Dir, klappt wunderbar. Auch an Nailor Danke!!

Grüsse, Daniel