Program Jenis Karakter menggunakan Case Of pada Delphi

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan membagikan contoh program case of pada delphi dengan membuat program jenis karakter huruf,angka dan tanda baca.

Program Jenis Karakter

procedure TForm1.Button1Click(Sender: TObject);
var kar : char;
    jenis : string;
begin
  kar := Edit1.text[1];
   Case kar of
     'a','e','o','u','i' :
         Jenis :=  'Vokal';
     'b'..'d', 'f'..'h','j'..'n','p'..'t','v'..'z' :
         Jenis := 'Konsonan';
     '0'..'9' :
          Jenis := 'Angka';
     '''','!','?','.' :
          Jenis :='Tanda Baca';
      else
          Jenis := 'Tidak terdefinisi'
   end;
   Edit2.Text := jenis
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text  := '';
  Edit2.Text :='';
  Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 Close;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan tentang program case of pada delphi semoga bermanfaat, wassalamu'alaikum wr.wb.