gibts nen EXOR befehl in delphi?

[mojo777]

hallo,
gibt es einen exor befehl in delphi?
also ich will einfach abgleichen ob v1 und v2 unterschiedlich sind:
v1=true
v2=false

Delphi-Quellcode:

if exor(v1,v2) then showmessage('untershciedl');

mit

Delphi-Quellcode:

if v1<>v2

klppts nicht :-(

danke

[Reinhard Kern]

Zitat:

Zitat von mojo777

hallo,
gibt es einen exor befehl in delphi?
also ich will einfach abgleichen ob v1 und v2 unterschiedlich sind:
v1=true
v2=false

Delphi-Quellcode:

if exor(v1,v2) then showmessage('untershciedl');

mit

Delphi-Quellcode:

if v1<>v2

klppts nicht :-(

danke

das heisst xor (nicht exor), also v1 xor v2

Gruss Reinhard

[mojo777]

:-)
danke!

[Luckie]

Wenn v1 und v2 Boolean-Werte sind sollte auch <> funktionieren. Was kamm denn für eine Fehlermeldung?

[leddl]

Zitat:

Zitat von Luckie

Wenn v1 und v2 Boolean-Werte sind sollte auch <> funktionieren.

Das sollte auch bei anderen Datentypen funktionieren :stupid:

[mojo777]

es kam keine fehler meldung.
der compiler hat nur irgendwie den entrypoint nicht gecheckt...
der code sah so aus

Delphi-Quellcode:

if v1<>v2 then
  begin
  Result:=False;
  end;
Result:=True;

jetzt:
if v1 xor v2 then
  erg:=false else erg:=True;
Result:=erg;

grüße

[dfried]

Zitat:

Zitat von mojo777

e

Delphi-Quellcode:

if v1<>v2 then
  begin
  Result:=False;
  end;
Result:=True;

Also wenn dein Quelltext wirklich so aussah, dann hat der compiler das if einfach wegoptimiert, weil du danach das Result eh immer wieder auf true gesetzt hast...
Ein "else" hätte hier wahrscheinlich geholfen :-)

[Klaus01]

oder so:

Delphi-Quellcode:

result := not (v1 <> v2)

Grüße
Klaus

[mojo777]

:mrgreen:
hehe. cool. da hat schon jemand ein halbes automaten-denken :-P

danke!

[KLS]

ein not ungleich ist wieder ein gleich.

also

Delphi-Quellcode:

result := v1 = v2