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