newby question: vowels & consonants

Dev Shed Forums Sponsor:

April 29th, 2004, 06:30 AM

rudidebruyn

Registered User

Join Date: Dec 2002

Posts: 28

Time spent in forums: < 1 sec
Reputation Power: 0

newby question: vowels & consonants

Hi all,

I need to take the value from an editbox and be able to identify the words start with vowels and but them into a var and words that start with consonants into and other vowel.

Any ideas of how to go about this?

Any help will be much appreciated.

Regards
Rudi

April 29th, 2004, 12:04 PM

ECSUK

Contributing User

Join Date: Mar 2001

Location: North Yorkshire (U.K.)

Posts: 64

Time spent in forums: 5 h 24 m 18 sec
Reputation Power: 13

This is a clumsy way, utilising arrays would probably be better, but until you learn how to use them or somebody is happy to show you, this should do the trick.

procedure TForm1.Btn1Click(Sender: TObject);
Var EditVar, MyConVar, MyVowelVar : String;
begin
EditVar := Copy( UpperCase( Edit1.Text ), 1, 1 );
If ( Pos( 'A', EditVar ) = 1 ) or
( Pos( 'E', EditVar ) = 1 ) or
( Pos( 'I', EditVar ) = 1 ) or
( Pos( 'O', EditVar ) = 1 ) or
( Pos( 'U', EditVar ) = 1 ) Then
MyVowelVar := EditVar
Else
MyConVar := EditVar;
end;

April 29th, 2004, 03:58 PM

Scorpions4ever

Banned ;)

Dev Shed God 9th Plane (9000 - 9499 posts)

Join Date: Nov 2001

Location: Woodland Hills, Los Angeles County, California, USA

Posts: 9,390

Time spent in forums: 1 Month 4 Weeks 1 Day 22 h 32 m 40 sec
Reputation Power: 4080

Another way is to use Pascal's set operator to see if a character is within a set of characters or not. Incidentally, you can refer to a single character in a string by its index, instead of using Copy.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
	sIn : string;
	ch : char;
begin
	sIn := Edit1.Text;
	ch := upcase(sIn[1]);
	if (ch in ['A', 'E', 'I', 'O', 'U']) then
		ShowMessage(sIn + ' starts with vowel')
	else
		ShowMessage(sIn + ' starts with consonant');
end;

__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > newby question: vowels & consonants

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump