[delphi5]consonanti e vocale

[niquesca]

Salve


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

grazie
Nique

[bDaniele]

non mi risulta.

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

[alka]

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!

[niquesca]

grazie marco....

lo metto in pratica....

ciaus
Monique

[niquesca]

ciao Daniele


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

ciaus

[bDaniele]

Originariamente inviato da niquesca
ciao Daniele


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

ciaus