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
ansonsten der einfache Weg ... so wie du es ja schon definiert hast
if ((S1 = '') and (S2 = '') and (S3 = '')) or (S1 <> '') and (S2 <> '') and (S3 <> '') then