Case/es
From Free Pascal wiki
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
русский (ru) │
Case opens a case statement. The case statement compares the value of ordinal expression to each selector, which can be a constant, a subrange, or a list of them separated by commas. Selector field separated from action field by Colon.
La sentencia "case" incluye las palabras reservadas Of y End . algunas veces Else, también.
<delphi>
case place of 1: ShowMessage('Medalla de oro'); 2: ShowMessage('Medalla de plata'); 3: ShowMessage('Medalla de bronce'); else ShowMessage('Mejor suerte la siguiente vez'); end;
</delphi>
QueEsCaracter
<delphi>
function QueEsCaracter( c:char ):string; { recibe un parámetro "char" o carácter { y retorna un "string" o cadena } var s : string; begin s := ; case c of '0' .. '9' : s := 'digito (0-9)'; 'a' .. 'z' : s := 'letras minúsculas(a-z)'; 'A' .. 'Z' : s := 'letras mayúsculas (A-Z)'; '+' , '-' : s := 'signo (+ o -)'; end; result := s; end;
</delphi>
Variante Record
Case-word is used Variant Record, too. Variant Record también llamada una unión tagged .
<delphi>
type Escala_Kelvin = 223 .. 323; Escala_Celsius = -50 .. 50; Escala_Temperatura = ( celcius, kelvin ) ; Temperatura = record case escala : Escala_Temperatura of celsius : (valor_celcius : Escala_Celsius); kelvin : (valor_kelvin : Escala_Kelvin); end;
</delphi>