Difference between revisions of "Case/es"
From Free Pascal wiki
Jump to navigationJump to searchLine 38: | Line 38: | ||
</delphi> | </delphi> | ||
− | == | + | == Variante Record == |
− | Case-word is used Variant [[Record]], too. Variant Record | + | Case-word is used Variant [[Record]], too. Variant Record también llamada una unión tagged . |
<delphi> | <delphi> |
Revision as of 01:07, 24 November 2009
│
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>