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
Zitat von
jfheins:
Da ja bereits simple Lösungen vorgeschlagen wurden:
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
Evtl. sind noch casts notwendig, aber die Idee sollte deutlich werden
Hmmm aber "BoolToStr" liefert für True "-1"?
Aber ich glaube so geht das dann auch, wenn True != 1 ist:
if (((S1 = '') + (S2 = '') + (S3 = '')) mod (3*True)) = 0 then
MfG
xZise