PDA

Visualizza la versione completa : [delphi5]consonanti e vocale


niquesca
28-02-2003, 15:52
Salve


Esiste una funzione che riconosce una vocale da una consonante gi fatta?

grazie
Nique

bDaniele
28-02-2003, 18:36
non mi risulta.

ora guardo meglio, se trovo qualcosa mi precipito ad avvisarti.

alka
28-02-2003, 18:56
Non penso proprio che esista, ma si pu costruire in brevissimo tempo.

Puoi dichiarare due constanti di tipo set in questo modo:


const
SVocali = ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];
SConsonanti = ['A'..'Z', 'a'..'z'] - SVocali;


Per verificare se un carattere (Char) vocale o consonante, ti basta verificare la sua appartenenza agli insiemi specifici.

Ti riporto un esempio del meccanismo applicato all'evento OnKeyPress di un controllo TEdit:


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in SConsonanti then
ShowMessage('Consonante')
else if Key in SVocali then
ShowMessage('Vocale')
else
ShowMessage('Sconosciuto');
end;


Ciao! :ciauz:

niquesca
28-02-2003, 20:42
grazie marco....

lo metto in pratica....

ciaus
Monique

niquesca
01-03-2003, 16:45
ciao Daniele


grazie anche a te...ho visto solo ora che mi hai risposto...

ciaus

bDaniele
02-03-2003, 11:06
Originariamente inviato da niquesca
ciao Daniele


grazie anche a te...ho visto solo ora che mi hai risposto...

ciaus

:smack:

Loading