Einzelnen Beitrag anzeigen

Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#1

In Set or Not in Set? Frage zu Set.

  Alt 6. Okt 2006, 09:49
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
  Mit Zitat antworten Zitat