PDA

Visualizza la versione completa : [delphi] char / string


niquesca
02-03-2003, 12:34
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
02-03-2003, 13:12
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
02-03-2003, 19:34
Non ho ben capito qual č il tuo problema...

Non riesci ad assegnare il valore alla variabile carattere?

Ciao! :ciauz:

niquesca
02-03-2003, 21:04
tutto ok ho risolto grazie

ciao

Loading