Difference between revisions of "Case/es"
From Free Pascal wiki
Jump to navigationJump to search| Line 1: | Line 1: | ||
{{Case}} | {{Case}} | ||
| − | Case | + | Case abre una sentencia "case". La sentencia "case" compara el valor de una expresión ordinal con cada uno de los selectores que contiene, pudiendo tratarse de selectores de tipo [[Const|constante]], un subrango, o una lista de ellos separados por [[Comma|comas]]. El campo del selector se encuentra separado del campo de acción por [[Colon] | dos puntos ":"]. |
La sentencia "case" incluye [[Reserved word | las palabras reservadas]] [[Of]] y [[End]] . algunas veces [[Else]], también. | La sentencia "case" incluye [[Reserved word | las palabras reservadas]] [[Of]] y [[End]] . algunas veces [[Else]], también. | ||
Revision as of 01:10, 24 November 2009
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
русский (ru) │
Case abre una sentencia "case". La sentencia "case" compara el valor de una expresión ordinal con cada uno de los selectores que contiene, pudiendo tratarse de selectores de tipo constante, un subrango, o una lista de ellos separados por comas. El campo del selector se encuentra separado del campo de acción por [[Colon] | dos puntos ":"].
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>
