Difference between revisions of "Case/es"
From Free Pascal wiki
Jump to navigationJump to searchm (Text replace - "delphi>" to "syntaxhighlight>") |
|||
Line 7: | Line 7: | ||
− | < | + | <syntaxhighlight> |
case place of | case place of | ||
Line 16: | Line 16: | ||
end; | end; | ||
− | </ | + | </syntaxhighlight> |
=== QueEsCaracter === | === QueEsCaracter === | ||
− | < | + | <syntaxhighlight> |
function QueEsCaracter( c:char ):string; { recibe un parámetro "char" o carácter | function QueEsCaracter( c:char ):string; { recibe un parámetro "char" o carácter | ||
Line 37: | Line 37: | ||
end; | end; | ||
− | </ | + | </syntaxhighlight> |
== Variante Record == | == Variante Record == | ||
Line 43: | Line 43: | ||
La palabra reservada '''Case''' se utiliza también en la declaración de los [[Record|Registros variantes]]. Un registro variante se conoce también cómo "unión etiquetada". | La palabra reservada '''Case''' se utiliza también en la declaración de los [[Record|Registros variantes]]. Un registro variante se conoce también cómo "unión etiquetada". | ||
− | < | + | <syntaxhighlight> |
type | type | ||
Line 57: | Line 57: | ||
end; | end; | ||
− | </ | + | </syntaxhighlight> |
== Leer más == | == Leer más == |
Revision as of 14:57, 24 March 2012
│
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.
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;
QueEsCaracter
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;
Variante Record
La palabra reservada Case se utiliza también en la declaración de los Registros variantes. Un registro variante se conoce también cómo "unión etiquetada".
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;