Consonants and Vowels Counter in Delphi

A simple program that I wrote in Delphi as my main programming language that will ask the user to give a string, word, sentence or phrase and then our program will count the number of consonants and vowels. The code is very short and very easy to understand. I hope you will like my work  and able to share my knowledge in Delphi programming.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

 
My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

unit vowels_consonants_counter;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Button2: TButton;

    Label6: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

var

    St : String[255];

    Location1,Location2 : integer;

    Count_Vowels, Count_Consonants : integer;

    Valid_Vowels     : Set of Char;

    Valid_Consonants : Set of Char;

procedure TForm1.Button1Click(Sender: TObject);

begin

    Count_Vowels     := 0;

    Count_Consonants := 0;

    st := edit1.text;

    Valid_Vowels := ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];

    Valid_Consonants := ['B', 'C', 'D','F', 'G', 'H', 'J', 'K',

                          'L', 'M', 'N', 'P', 'Q','R', 'S', 'T',

                          'V','W','X','Y','Z','b','c','d','f',

                          'g','h','j','k','l','m','n','p','q',

                          'r','s','t','v','w','x','y','z'];

     For Location1 := 1 to Length(st) Do

       If St[Location1] IN Valid_Vowels Then

             Count_Vowels := SUCC(Count_Vowels);

             label3.caption := 'The Number of Vowels is '

             + inttostr(Count_Vowels)+ '.';

     For Location2 := 1 to Length(st) Do

           If St[Location2] IN Valid_Consonants Then

             Count_Consonants := SUCC(Count_Consonants);

             label6.caption := 'The Number of Consonants is '

             + inttostr(Count_Consonants)+ '.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text := '';

label3.caption :='';

label6.caption :='';

edit1.setfocus;

end;

end.