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

if exor(v1,v2) then showmessage('untershciedl'); mit if v1<>v2 klppts nicht

danke

**Reinhard Kern**

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

if exor(v1,v2) then showmessage('untershciedl'); mit 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 von Luckie:

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

Das sollte auch bei anderen Datentypen funktionieren

**mojo777**

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

markieren

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 von mojo777:

e

markieren

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:
result := not (v1 <> v2) Grüße
Klaus

**mojo777**

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

danke!

**KLS**

ein not ungleich ist wieder ein gleich.

also
result := v1 = v2

gibts nen EXOR befehl in delphi?

gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Re: gibts nen EXOR befehl in delphi?

Forumregeln

mojo777 Registriert seit: 10. Sep 2003 402 Beiträge	#1 gibts nen EXOR befehl in delphi? 6. Dez 2006, 00:17 hallo, gibt es einen exor befehl in delphi? also ich will einfach abgleichen ob v1 und v2 unterschiedlich sind: v1=true v2=false if exor(v1,v2) then showmessage('untershciedl'); mit if v1<>v2 klppts nicht danke Muh macht die kUh
	Zitat

Reinhard Kern Registriert seit: 22. Okt 2006 772 Beiträge	#2 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 00:34 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 if exor(v1,v2) then showmessage('untershciedl'); mit if v1<>v2 klppts nicht :-( danke das heisst xor (nicht exor), also v1 xor v2 Gruss Reinhard
	Zitat

mojo777 Registriert seit: 10. Sep 2003 402 Beiträge	#3 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 00:38 danke! Muh macht die kUh
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 06:16 Wenn v1 und v2 Boolean-Werte sind sollte auch <> funktionieren. Was kamm denn für eine Fehlermeldung? Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

leddl Registriert seit: 13. Okt 2003 Ort: Künzelsau 1.613 Beiträge Delphi 2006 Professional	#5 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 07:11 Zitat von Luckie: Wenn v1 und v2 Boolean-Werte sind sollte auch <> funktionieren. Das sollte auch bei anderen Datentypen funktionieren Axel Sefranek A programmer started to cuss, cause getting to sleep was a fuss. As he lay there in bed, looping round in his head was: while(!asleep()) ++sheep;
	Zitat

mojo777 Registriert seit: 10. Sep 2003 402 Beiträge	#6 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 08:41 es kam keine fehler meldung. der compiler hat nur irgendwie den entrypoint nicht gecheckt... der code sah so aus markieren 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 Muh macht die kUh
	Zitat

dfried Registriert seit: 16. Aug 2005 486 Beiträge	#7 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 08:48 Zitat von mojo777: e markieren 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
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#8 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 08:52 oder so: result := not (v1 <> v2) Grüße Klaus Klaus
	Zitat

mojo777 Registriert seit: 10. Sep 2003 402 Beiträge	#9 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 09:06 hehe. cool. da hat schon jemand ein halbes automaten-denken danke! Muh macht die kUh
	Zitat

KLS Registriert seit: 20. Jun 2004 Ort: Berlin 89 Beiträge Delphi 7 Enterprise	#10 Re: gibts nen EXOR befehl in delphi? 6. Dez 2006, 09:24 ein not ungleich ist wieder ein gleich. also result := v1 = v2 Thomas H.
	Zitat