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.
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:
