Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Per risolvere il problema, io passerei la stringa "per indirizzo" alla procedura, quindi cero una copia locale della stessa.
A questo punto azzero la prima steinga, e con un ciclo, carico la stessa solo i caratteri "normali", esaminando la copia.
Ecco un esempio:
Codice sorgente - presumibilmente Delphi
Program Esempio;
var frase:string;
procedure AssemblaStringa(var a:string);
var b:string;
i,fine:word;
begin
b:=a;
fine:=length(a);
a:='';
for i:=1 to fine do
begin
caseUpCase(b[i])of
'A'..'Z': a:=a+b[i];(* Salvo solo le lettere *)
end;
end;
end;
begin
frase:=' ☺☻Stringa di prova 1 :\☻☺○ ';
AssemblaStringa(frase);
writeln('#',frase,'#');
readln;
end.
( La funzione UpCase( <carattere> ) restituisce il carattere passato in maiuscolo. )
Ultima modifica effettuata da Poggi Marco il 25/01/2010 alle 21:28