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>
