Überprüfen, ob drei Vergleiche gleich sind

[xZise]

Hallo ihr,

wie kann ich einfach überprüfen, ob in drei Strings kein Leerstring oder ein Leerstring steht?

Also wenn ich drei Strings (S1, S2, S3) habe soll folgendes bei dem Vergleich herauskommen:

• Alle Strings sind leer (S1 = S2 = S3 = '') -> True
• Alle Strings sind befüllt (S1 <> '' und S2 <> '' und S3 <>''), aber nicht zwingend gleich -> True
• Ansonsten -> False

Ich möchte aber dabei das möglichst einfach halten, also ohne doppelte Zugriffe.

MfG
xZise

[mkinzler]

Kännen Leerzeichen in den Strings vorkommen?

[himitsu]

hmmmm?

Delphi-Quellcode:

if (S1 = '') xor (S2 = '') xor (S3 = '') then 
// oder
if ((S1 = '') xor (S2 = '')) xor ((S1 = '') xor (S3 = '')) then

kann grad nicht so überlegen :oops:

ansonsten der einfache Weg ... so wie du es ja schon definiert hast :angel2:

Delphi-Quellcode:

if ((S1 = '') and (S2 = '') and (S3 = '')) or (S1 <> '') and (S2 <> '') and (S3 <> '') then

[alzaimar]

Delphi-Quellcode:

Function XZiseSeinVergleich (const S1,S2,S3 : String) : Boolean;
Var
  b : Boolean;

Begin
  b := (S2 = '');
  Result := ((S1 = '') = b) And (b = (S3 = ''))
End;

[xZise]

Hmmm, weiß ich nicht, also du willst wissen, ob Trim(SX) = '' wie SX = '' zu behandeln ist?

Nun ich weiß nicht wie ich das behandeln muss, aber auf was zielt die Frage ab? Wie wäre die Antwort wenn es erlaubt ist, und wie wenn es nicht erlaubt ist?

Also ich möchte damit testen, ob es sich um eine gültige Exceltabelle handelt. Und wahrscheinlich sind Leerzeichenfelder ein Fehlerkriterium (also wie False).

Zitat:

Zitat von himitsu

hmmmm?

Delphi-Quellcode:

if (S1 = '') xor (S2 = '') xor (S3 = '') then 
// oder
if ((S1 = '') xor (S2 = '')) xor ((S1 = '') xor (S3 = '')) then

kann grad nicht so überlegen :oops:

ansonsten der einfache Weg ... so wie du es ja schon definiert hast :angel2:

Delphi-Quellcode:

if ((S1 = '') and (S2 = '') and (S3 = '')) or (S1 <> '') and (S2 <> '') and (S3 <> '') then

Naja oberes geht nicht (ich dachte auch an sowas), aber sobald zwei Strings True zurückgegeben, gibt er dennoch True zurück, dabei sollte er ja nur True zurückgegeben, wenn alle drei Leer oder nicht Leer sind.
Und der zweite Vergleich greift zweimal auf eine Variable zu und der dritte (so ist es gerade implementiert), greift auf jede zweimal zu und ich so ist es gerade bei mir, aber ich habe die Befürchtung, dass der doppelte Zugriff in die Zeit geht. (Kann es leider auch nicht testen, da ich hier kein Excel habe :D )

Zitat:

Zitat von alzaimar

Delphi-Quellcode:

Function XZiseSeinVergleich (const S1,S2,S3 : String) : Boolean;
Var
  b : Boolean;

Begin
  b := (S2 = '');
  Result := ((S1 = '') = b) And (b = (S3 = ''))
End;

Hmmm das ist ja himitsus erste Variante ohne doppelten Zugriff auf den String.

MfG
xZise

[himitsu]

den "doppelten Zugriff hab ich mal ignoriert, da Delphi ja sowas braus machen

Delphi-Quellcode:

if S = '' then                 if S <> '' then
if Pointer(S) = nil then       if Pointer(S) <> nil then
if not LongBool(S) then        if LongBool(S) then

also so Schlimm ist dann ein Vergleich via = oder <> garnicht :angel:

[jfheins]

Da ja bereits simple Lösungen vorgeschlagen wurden:

Delphi-Quellcode:

if (((S1 = '') + (S2 = '') + (S3 = '')) mod 3) = 0 then

Da True einen Ordinalwert von 1 hat, kommt entweder 3 raus (alle string leer => Alle Vergleiche liefern True) oder 0 (Alle String befüllt => Alle Vergleiche False=0)
Das dann modulo 3 und du hast deinen Vergleich :mrgreen:

Evtl. sind noch casts notwendig, aber die Idee sollte deutlich werden :P

[alzaimar]

Zitat:

Zitat von xZise

Hmmm das ist ja himitsus erste Variante ohne doppelten Zugriff auf den String.

Nee, korrekte Logik. Ich verwende '=', himitsu dagegen '<>'.
Außerdem hab ich das wirklich ehrlich unabhängig von himitsu ganz alleine hinbekommen. Und auußerdem bin ich in der Türkei, hier ist eine Stunde später, also hab ich das ja wohl eine Stunde früher gepostet und es ist wegen der Zeitverschiebung erst jetzt angekommen :freak: :wall:

[xZise]

OOps, das sollte nicht so rüber kommen, als würdest du Code "stehlen", sondern mir ging es nur darum, da himitsus erste Variante ja geht, auch deine Variante geht :mrgreen:

Zitat:

Zitat von jfheins

Da ja bereits simple Lösungen vorgeschlagen wurden:

Delphi-Quellcode:

if (((S1 = '') + (S2 = '') + (S3 = '')) mod 3) = 0 then

Da True einen Ordinalwert von 1 hat, kommt entweder 3 raus (alle string leer => Alle Vergleiche liefern True) oder 0 (Alle String befüllt =&gt; Alle Vergleiche False=0)
Das dann modulo 3 und du hast deinen Vergleich :mrgreen:

Evtl. sind noch casts notwendig, aber die Idee sollte deutlich werden :P

Hmmm aber "BoolToStr" liefert für True "-1"?

Aber ich glaube so geht das dann auch, wenn True != 1 ist:

Delphi-Quellcode:

if (((S1 = '') + (S2 = '') + (S3 = '')) mod (3*True)) = 0 then

MfG
xZise

[himitsu]

da muß man aufpassen

True (die Konstante):
BOOL (c) = LongBool (delphi) = -1 = $FFFFFFFF
WordBool (delphi) = -1 = $FFFF
bool (c) = ByteBool (delphi): -1 = $FF
Boolean (Delphi): 1 = $01

True (bei booleanischen Vergleichen):
alles: b<>0

True (bei binärischen Vergleichen):
alles: b=Wert

darum ist auch b=True so fartal, da dort wirklich geprüft wird, ob b genau dem True entspricht

False (die Konstante und bei Vergleichen):
alles: b=0

[Dax]

Um es schön in einer Zeiler zu halten, mit dem Wissen, dass Boolean = equivalent XNOR:

Delphi-Quellcode:

not ((not ((S1 = '') xor (S2 = ''))) xor (S3 = ''))

[mleyen]

1. Später weiß bei sowas doch keiner mehr was der Programmierer da eigentlich wollte. (Dazu müsste man das bissl schon kommentieren)
2. Seh ich das richtig, das es falsch ist?
Wenn man alle 3 Strings voll übergibt, ergibt das xor ture wird negiert und false kommt raus.

Hier, eine funktionierende Variante mit nur einen Zugriff auf die Variablen:

Delphi-Quellcode:

function XZiseSeinVergleich(const S1, S2, S3: string): Boolean;
begin
  if Str1='' then
  begin
    if Str2='' then
      result := Str3=''
    else
      Result := false
  end
  else
  begin
    if Str2<>'' then
      result := Str3<>''
    else
      Result := false
  end;
end;

[Dax]

Hm, du hast Recht. Beim schreiben hatte ich nicht beacht, dass xor nicht so einfach auf n Operanden erweiterbar ist :) Letztlich kommt es wohl immer aufs selbe raus: in Delphi geht das nur mit mehreren Zugriffen, oder nur mit mehreren Zeilen.

[himitsu]

i hab's jetzt

Delphi-Quellcode:

if not (((S1 = '') xor (S2 = '')) or ((S1 = '') xor (S3 = ''))) then
// oder 
if not (((S1 <> '') xor (S2 <> '')) or ((S1 <> '') xor (S3 <> ''))) then

[xZise]

Zitat:

Zitat von himitsu

da muß man aufpassen

True (die Konstante):
BOOL (c) = LongBool (delphi) = -1 = $FFFFFFFF
WordBool (delphi) = -1 = $FFFF
bool (c) = ByteBool (delphi): -1 = $FF
Boolean (Delphi): 1 = $01

True (bei booleanischen Vergleichen):
alles: b<>0

True (bei binärischen Vergleichen):
alles: b=Wert

darum ist auch b=True so fartal, da dort wirklich geprüft wird, ob b genau dem True entspricht

False (die Konstante und bei Vergleichen):
alles: b=0

Joar genau, aber rein theoretisch müsste das ja klappen ;) Wenn auch nicht gerade sprachübergreifend sicher :mrgreen:

Zitat:

Zitat von Dax

Um es schön in einer Zeiler zu halten, mit dem Wissen, dass Boolean = equivalent XNOR:

Delphi-Quellcode:

not ((not ((S1 = '') xor (S2 = ''))) xor (S3 = ''))

Aber das wird nicht funktionieren: Und zwar nimmst du nicht beim Vergleich zu S3 nicht mit rüber, wie S1/S2 aussahen: S1 und S2 != '' und S3 = '' -> True, da ja S1 und S2 = '' genau gleich sind beim innersten Vergleich.

Zitat:

Zitat von himitsu

i hab's jetzt

Delphi-Quellcode:

if not (((S1 = '') xor (S2 = '')) or ((S1 = '') xor (S3 = ''))) then
// oder 
if not (((S1 <> '') xor (S2 &lt;&gt; '')) or ((S1 &lt;&gt; '') xor (S3 &lt;&gt; ''))) then

Sieht interessant aus :D

Zitat:

Zitat von himitsu

[...]also so Schlimm ist dann ein Vergleich via = oder &lt;&gt; garnicht :angel:

Nein aber das holen des Wertes dauert schon, wobei ich da mal wieder zu pingelig bin.

Und es hört sich so schön an:

Delphi-Quellcode:

Result := ((S1 = '') = (S2 = '') = (S3 = ''))

Nun da ich eh die Werte zwischenspeichern "muss", werde ich himitsus letzte Variante nehmen.

MfG
xZise

[himitsu]

Zitat:

Zitat von xZise

Nein aber das holen des Wertes dauert schon, wobei ich da mal wieder zu pingelig bin.

ob man da nun einen String-Zeiger holt oder einen Boolean, macht keinen großen Unterschied :-D

[xZise]

Aus der Tabelle aber nicht mehr. (Imho)

MfG
xZise