In Set or Not in Set? Frage zu Set.

[Go2EITS]

Guten Morgen DP User!

Mal wieder eine Anfängerfrage. (Ich habe in handbüchnern, Delphi Hilfe und Goggle gesucht, konnte die Angaben nicht umsetzen, weil das Beispiel dafür fehlte.)
Es sei gegeben:
Wenn "Ch" im Set "set1" ist, dann "True" sonst "False".

Delphi-Quellcode:

Function IsOk(Ch:Char):Boolean;
TYPE
  TIntSet = set of char;
VAR
 Set1:TIntSet;
begin
Set1:=[#1..#128,#228,#246,#252,#196,#214,#220,#223];

if ch in set1 
   then
     begin
     Result:=true;
     Exit;
     end
   else
     Result:=False;

end;//Function IsOK

//Müsste True anzeigen
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsOk('a') then ShowMessage('True') else
ShowMessage('False') ;
end;

Meine Frage:
Ich möchte wissen, wenn etwas nicht im Set ist.
NOT wie z. B. "if ch not set1 then" funktioniert nicht und '<>' auch nicht.
Da mache ich irgendetwas falsch.

Wisst Ihr weiter?
Beste Grüße
Go2EITS

[Daniel]

Wenn der eine Weg geht ... if c in set then, dann kannst Du die Logik einfach umdrehen: if not (c in set) then ...

[mkinzler]

not in sollte eigentlich gehen
Notfalls not (ch in ...)

[Go2EITS]

@mkinzler
Das hatte ich als erstes probiert. Das "not in" geht nicht. (u.v.m.)

@Daniel und @Mkinzler
Dein " if not (c in set) then ..." funtioniert bestens.
Wenn Ihr wüsstest, wie lange ich gesucht habe. Dass man Klammern setzten muss... Darauf wäre ich nie gekommen.

Vielen Dank für die schnelle Antwort.
Eine wichtige Grundsatzfrage geklärt.
CU! Go2EITS

[Elvis]

Zitat von Go2EITS:

Delphi-Quellcode:

Function IsOk(Ch:Char):Boolean;
TYPE
  TIntSet = set of char;
VAR
 Set1:TIntSet;
begin
Set1:=

if ch in set1 
   then
     begin
     Result:=true;
     Exit;
     end
   else
     Result:=False;

end;//Function IsOK

urrkks... Wo hast du denn den Code her?
Warum nicht einfach so?

Delphi-Quellcode:

function IsBlablaChar(const c : Char) : Boolean;
begin
  result := not (c in [#1..#128, #228, #246, #252, #196, #214, #220, #223]);
end;

[Go2EITS]

@Elvis
ähhm...mein Code.
Genial! Die Verwendung von Result ist so natürlich beispielhaft. Was für ein Unterschied zu meinen Code.
Beste Grüße Go2EITS

[negaH]

Delphi-Quellcode:

if Set * [Ch] <> [] then "Ch in Set"
if Set * [Ch] = [] then "Ch not in Set"

Gruß Hagen

[Go2EITS]

[EDIT] Überschwang raus.[\EDIT]
Das ist bestimmt nicht mehr zu toppen. Hab es kopiert und probiere ich mal aus.
Beste Grüße von Go2EITS

[3_of_8]

Wurde der Operator <> für Sets überladen? Wie denn? Also was bewirkt der auf Sets angewandt?

[Dax]

Zitat von 3_of_8:

Wurde der Operator <> für Sets überladen? Wie denn? Also was bewirkt der auf Sets angewandt?

Nein, wurde er nicht. Was denkst du denn bitte?

<> ist <>, oder != in php/C-Derivaten... Einfache Ungleichheit