LordKusa

pascal/delphi function IsVowel

Apr 15th, 2021
802
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. function IsVowel(letter:char):boolean;
  2.     begin
  3.         case ord(letter) of
  4.             65: IsVowel := true;
  5.             69: IsVowel := true;
  6.             73: IsVowel := true;
  7.             79: IsVowel := true;
  8.             85: IsVowel := true;
  9.             97: IsVowel := true;
  10.             101: IsVowel := true;
  11.             105: IsVowel := true;
  12.             111: IsVowel := true;
  13.             117: IsVowel := true;
  14.         else
  15.             IsVowel := false;
  16.         end;
  17.     end;
RAW Paste Data