Devi mettere:
case variabile of
costante1: istruzione1;
costante2: istruzione2;
....
end;
Tu hai messo:
case costante of
ecc... ecc...
'O' è infatti la costante che identifica il codice ASCII della lettera O, mentre avresti dovuto mettere semplicemente
case O of
ecc....
dove O, in questo caso, è la variabile di nome O di tipo string.
Tuttavia, anche dopo questa modifica non funzionerà, perchè il case...of funziona soltanto con costanti intere e costanti di tipo carattere. Non funziona con le stringhe e con i tipi complessi in generale.
In quest'ultimo caso, dovrai usare una catena di if, e in ciascuna istruzione if dovrai controllare una stringa alla volta.
|