Difference between revisions of "Case"

From Lazarus wiki
Jump to navigationJump to search
m (Reverted edits by Reverse22 (Talk); changed back to last version by DLag)
Line 65: Line 65:
 
* [[Dialog_Examples#ShowMessage|ShowMessage]]
 
* [[Dialog_Examples#ShowMessage|ShowMessage]]
 
* [[Type]]
 
* [[Type]]
 
[http://www.prlog.org/11289974-phone-number-lookup-verizon-phone-number-reverse-lookup-to-get-information-you-need-quickly.html reverse lookup]
 
 
[http://thetvtopc.com/Reverse_Cell_Phone_Lookup_Number reverse phone lookup cell]
 

Revision as of 18:46, 2 January 2012

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.

The case statement includes reserved words Of and End . Sometimes Else, too.


<delphi>

case place of
  1: ShowMessage('Gold medal');
  2: ShowMessage('Silver medal');
  3: ShowMessage('Bronze medal'); 
  else ShowMessage('Better luck next time'); 
end;

</delphi>

WhatIsChar

<delphi>

function WhatIsChar( c:char ):string;
var
  s : string;
begin
  s := ;
  case c of
    '0' .. '9' : s := 'digit (0-9)';
    'a' .. 'z' : s := 'small letter (a-z)';
    'A' .. 'Z' : s := 'big letter (A-Z)';
    '+' , '-'  : s := 'sign (+ or -)';
  end;
  result := s;
end;

</delphi>

Variant Record

Case-word is used Variant Record, too. Variant Record also called a tagged union.

<delphi>

 type
     
  ScaleKelvin = 223 .. 323;
  ScaleCelsius = -50 .. 50;
   
  TemperatureScale   =  ( celcius, kelvin ) ;
  Temperature   =   record
   case  scale   :   TemperatureScale   of
    celcius : (celcius_value : ScaleCelsius);
    kelvin : (kelvin_value : ScaleKelvin);
  end;

</delphi>

Read more