[delphi] char / string

[niquesca]

Salve ho un insieme dichiarato cosi

const insieme ['A','E','I'];

begin
StringaNome:=(edit1.text);
LunghezzaNome:= (length(edit1.Text));

for i:= 1 to LunghezzaNome do begin
StringaNome:=(edit1.text);
LunghezzaNome:= (length(edit1.Text));

for i:= 1 to LunghezzaNome do begin
carattere:= StringaNome[i];
if carattere in insieme then
showmessage('ok');

ma carattere deve essere di tipo chat, come faccio a convertire una stringa in char?
grazie

[gokan]

Non so se ti può interessare però potresti usare la funzione:
pos(stringa_cercata, stringa)
che in pratica controlla se "stringa" è una sottostringa di "stringa_cercata".Ti faccio un esempio:
pos(ciao, saluti);

saluti:='ciao, come stai?';

La funzione pos ti restituisce la posizione dove trova "ciao" e quindi fa una verifica della stringa che cerchi.

Ciao

[alka]

Non ho ben capito qual è il tuo problema...

Non riesci ad assegnare il valore alla variabile carattere?

Ciao!

[niquesca]

tutto ok ho risolto grazie

ciao