Funzioni per la gestione delle stringhe in Delphi

Esistono diverse funzioni per la manipolazione delle stringhe, vedremo le principali. Prima di tutto è importante dire che una stringa va compresa tra apici ‘. Inoltre esistono dei caratteri speciali come il salto ad una riga successiva, questi vengono indicati col valore ASCII corrispondente preceduto dal simbolo #.

Il salto ad una riga successiva, per esempio, si indica con #13. Torniamo alle funzioni per la manipolazione delle stringhe, apriamo il nostro progetto di esempio. Posizionatevi nel codice del Form, nell’evento Create, e digitate il codice seguente:

edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit5.Text := '';
edit6.Text := '';

Questo eseguirà una pulizia del contenuto di tutti i campi di testo presenti sul Form.

Ora visualizzate la finestra del codice del bottone, nell’evento click e digitate quanto segue:

stringa := edit1.Text;
edit1.Text := ansiuppercase(stringa);

stringa := edit2.Text;
edit2.Text := ansiuppercase(stringa);

stringa := edit4.Text;
edit4.Text := ansiuppercase(stringa);

stringa := edit5.Text;
edit5.Text := ansiuppercase(stringa);

stringa := edit6.Text;
edit6.Text := ansiuppercase(stringa);

La variabile stringa viene utilizzata per memorizzare il testo digitato in ogni campo. Grazie alla funzione ansiuppercase, il testo viene convertito in maiuscolo. La sintassi di questa funzione è la seguente:

variabilestringa := ansiuppercase(stringa);

Dove variabilestringa può essere anche la proprietà di un componente (come nel nostro caso) mentre stringa rappresenta una sequenza di caratteri, o anche una variabile. Può essere necessario a volte, verificare la lunghezza di una stringa, nel nostro caso verifichiamo che la data di nascita sia di 8 caratteri, digitate quanto segue:

lunghezza := length(edit3.Text);
if  lunghezza  <> 8 then
  begin
    
    ShowMessage('ATTENZIONE DATA NON VALIDA');

    exit;
  end;

In questo caso con la funzione length, si ottiene la lunghezza del campo contenente la data di nascita e, nel caso in cui non fosse di lunghezza adeguata, viene mostrato un messaggio di errore. La sintassi è la seguente:

variabileintero := length(stringa);

Degna di considerazione, è la funzione Concat, che unisce più stringhe. Digitate sempre di seguito il codice seguente:

lblmess.caption := Concat('NOME ', edit1.text, ' ', 'COGNOME ', edit2.text,
#13, 'NATO A ', edit4.text, ' ', 'IL ', edit3.text);

Attenzione: per motivi di layout abbiamo mandato a capo il codice dell’esempio precedente, ma per un corretto funzionamento della funzione Concat() è opportuno scrivere il codice su di una sola riga.

In questo modo, si visualizzano alcuni dei dati digitati, formattati opportunamente.

La sintassi è la seguente:

variabilestringa := Concat(stringa1, stringa2, .... stringan)