Case/fi: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	~~```~~
	1	+	```text
2	2		category:Suomi
3	3		```
4	4
5	5		Case aloittaa case-lauseen. Case-lauseessa verrataan muuttujan arvoa esitettyihin vakiona pysyviin arvoihin. Näitä vakiona pysyviä arvoja voi olla yksittäinen [[Const/fi\|vakio]], tietty vakioalue tai [[Comma\|pilkulla]] erotettu joukko vakioita. Tietyn valinnan jälkeen suoretettavat lauseen on erotettu [[Colon\|kaksoispisteellä]].
6	6
7	7		Case-lause sisältää [[Reserved word\|varatut sanat]] [[Of]] ja [[End]] sekä joskus myös [[Else]].
8	8
9	9		``` pascal
10	10
11	11		case place of
12	12		1: ShowMessage('Kultamitali');
13	13		2: ShowMessage('Hopeamitali');
14	14		3: ShowMessage('Pronssimitali');
15	15		else ShowMessage('Parempi onni ensi kerralla');
16	16		end;
17	17		```
18	18
19	19		### WhatIsChar
20	20
21	21		``` pascal
22	22
23	23		function WhatIsChar( c:char ):string;
24	24		var
25	25		s : string;
26	26		begin
27	27		s := '';
28	28		case c of
29	29		'0' .. '9' : s := 'Numero (0-9)';
30	30		'a' .. 'z' : s := 'Pieni kirjain (a-z)';
31	31		'A' .. 'Z' : s := 'Iso kirjain (A-Z)';
32	32		'+' , '-' : s := 'Etumerkki (+ or -)';
33	33		end;
34	34		result := s;
35	35		end;
36	36		```
37	37
38	38		## Case of merkkijonoissa
39	39
40	40		Case of toimii myös merkkijonoissa. Pascal -kieli mahdollistaa "Case of" käytön string:llä.
41	41
42	42		``` pascal
43	43		const
44	44		ISO_3166_1_ALPHA_3_ANDORRA = 'AND';
45	45		ISO_3166_1_ALPHA_3_AUSTRALIA = 'AUS';
46	46		ISO_3166_1_ALPHA_3_AUSTRIA = 'AUT';
47	47		ISO_3166_1_ALPHA_3_BELGIUM = 'BEL';
48	48		ISO_3166_1_ALPHA_3_BRAZIL = 'BRA';
49	49		ISO_3166_1_ALPHA_3_CANADA = 'CAN';
50	50		ISO_3166_1_ALPHA_3_CHINA = 'CHN';
51	51		ISO_3166_1_ALPHA_3_CZECH_REPUBLIC = 'CZE';
52	52		ISO_3166_1_ALPHA_3_CYPRUS = 'CYP';
53	53		ISO_3166_1_ALPHA_3_GERMANY = 'DEU';
54	54		ISO_3166_1_ALPHA_3_DENMARK = 'DNK';
55	55		ISO_3166_1_ALPHA_3_SPAIN = 'ESP';
56	56		ISO_3166_1_ALPHA_3_ESTONIA = 'EST';
57	57		ISO_3166_1_ALPHA_3_FINLAND = 'FIN';
58	58		ISO_3166_1_ALPHA_3_FRANCE = 'FRA';
59	59		ISO_3166_1_ALPHA_3_GREECE = 'GRC';
60	60		ISO_3166_1_ALPHA_3_INDIA = 'IND';
61	61		ISO_3166_1_ALPHA_3_IRELAND = 'IRL';
62	62		ISO_3166_1_ALPHA_3_ITALY = 'ITA';
63	63		ISO_3166_1_ALPHA_3_JAPAN = 'JPN';
64	64		ISO_3166_1_ALPHA_3_LITHUANIA = 'LTU';
65	65		ISO_3166_1_ALPHA_3_LATVIA = 'LVA';
66	66		ISO_3166_1_ALPHA_3_LUXEMBOURG = 'LUX';
67	67		ISO_3166_1_ALPHA_3_MALTA = 'MLT';
68	68		ISO_3166_1_ALPHA_3_MEXICO = 'MEX';
69	69		ISO_3166_1_ALPHA_3_MONACO = 'MCO';
70	70		ISO_3166_1_ALPHA_3_MONTENEGRO = 'MNE';
71	71		ISO_3166_1_ALPHA_3_NAURU = 'NRU';
72	72		ISO_3166_1_ALPHA_3_NETHERLANDS = 'NLD';
73	73		ISO_3166_1_ALPHA_3_NORWAY = 'NOR';
74	74		ISO_3166_1_ALPHA_3_POLAND = 'POL';
75	75		ISO_3166_1_ALPHA_3_PORTUGAL = 'PRT';
76	76		ISO_3166_1_ALPHA_3_REPUBLIC_OF_KOREA = 'KOR';
77	77		ISO_3166_1_ALPHA_3_RUSSIAN_FEDERATION = 'RUS';
78	78		ISO_3166_1_ALPHA_3_SAN_MARINO = 'SMR';
79	79		ISO_3166_1_ALPHA_3_SLOVAKIA = 'SVK';
80	80		ISO_3166_1_ALPHA_3_SLOVENIA = 'SVN';
81	81		ISO_3166_1_ALPHA_3_SWEDEN = 'SWE' ;
82	82		ISO_3166_1_ALPHA_3_SWITZERLAND = 'CHE';
83	83		ISO_3166_1_ALPHA_3_UNITED_KINGDOM_OF_GREAT_BRITAIN_AND_NORTHERN_IRELAND = 'GBR';
84	84		ISO_3166_1_ALPHA_3_UNITED_STATES_OF_AMERICA = 'USA';
85	85
86	86		ISO_4217_EURO = 'EUR';
87	87		ISO_4217_AUSTRALIAN_DOLLAR = 'AUD';
88	88		ISO_4217_BRAZILIAN_REAL = 'BRL';
89	89		ISO_4217_CANADIAN_DOLLAR = 'CAD';
90	90		ISO_4217_CHINESE_YUAN = 'CNY';
91	91		ISO_4217_CZECH_KORUNA = 'CZK' ;
92	92		ISO_4217_DANISH_KRONE = 'DKK' ;
93	93		ISO_4217_INDIAN_RUPEE = 'INR';
94	94		ISO_4217_POUND_STERLING = 'GBP' ;
95	95		ISO_4217_JAPANESE_YEN = 'JPY';
96	96		ISO_4217_MEXICAN_PESO = 'MXN';
97	97		ISO_4217_NORWEGIAN_KRONE = 'NOK' ;
98	98		ISO_4217_POLISH_ZLOTY = 'PLN' ;
99	99		ISO_4217_RUSSIAN_RUBLE = 'RUB' ;
100	100		ISO_4217_SOUTH_KOREAN_WON = 'KRW';
101	101		ISO_4217_SWEDISH_KRONA = 'SEK' ;
102	102		ISO_4217_SWISS_FRANC = 'CHF' ;
103	103		ISO_4217_UNITED_STATES_DOLLAR = 'USD' ;
104	104
105	105		function ISO_4217_currency_name ( ISO_3166_1_alpha_3_code: string): string;
106	106		begin
107	107		Case ISO_3166_1_alpha_3_code of
108	108		// Euroalue
109	109		ISO_3166_1_ALPHA_3_ANDORRA, ISO_3166_1_ALPHA_3_AUSTRIA,
110	110		ISO_3166_1_ALPHA_3_BELGIUM,ISO_3166_1_ALPHA_3_CYPRUS,
111	111		ISO_3166_1_ALPHA_3_GERMANY, ISO_3166_1_ALPHA_3_SPAIN,
112	112		ISO_3166_1_ALPHA_3_ESTONIA, ISO_3166_1_ALPHA_3_FINLAND,
113	113		ISO_3166_1_ALPHA_3_FRANCE, ISO_3166_1_ALPHA_3_GREECE,
114	114		ISO_3166_1_ALPHA_3_IRELAND, ISO_3166_1_ALPHA_3_ITALY,
115	115		ISO_3166_1_ALPHA_3_LITHUANIA, ISO_3166_1_ALPHA_3_LATVIA,
116	116		ISO_3166_1_ALPHA_3_LUXEMBOURG, ISO_3166_1_ALPHA_3_MONACO,
117	117		ISO_3166_1_ALPHA_3_MALTA, ISO_3166_1_ALPHA_3_MONTENEGRO,
118	118		ISO_3166_1_ALPHA_3_NETHERLANDS, ISO_3166_1_ALPHA_3_PORTUGAL,
119	119		ISO_3166_1_ALPHA_3_SAN_MARINO, ISO_3166_1_ALPHA_3_SLOVAKIA,
120	120		ISO_3166_1_ALPHA_3_SLOVENIA : result := ISO_4217_EURO ;
121	121
122	122		ISO_3166_1_ALPHA_3_AUSTRALIA, ISO_3166_1_ALPHA_3_NAURU :
123	123		result := ISO_4217_AUSTRALIAN_DOLLAR;
124	124		ISO_3166_1_ALPHA_3_BRAZIL : result := ISO_4217_BRAZILIAN_REAL;
125	125		ISO_3166_1_ALPHA_3_CANADA : result := ISO_4217_CANADIAN_DOLLAR;
126	126		ISO_3166_1_ALPHA_3_CHINA : result := ISO_4217_CHINESE_YUAN;
127	127		ISO_3166_1_ALPHA_3_CZECH_REPUBLIC : result := ISO_4217_CZECH_KORUNA ;
128	128		ISO_3166_1_ALPHA_3_DENMARK : result := ISO_4217_DANISH_KRONE ;
129	129		ISO_3166_1_ALPHA_3_INDIA : result := ISO_4217_INDIAN_RUPEE;
130	130		ISO_3166_1_ALPHA_3_JAPAN : result := ISO_4217_JAPANESE_YEN;
131	131		ISO_3166_1_ALPHA_3_MEXICO : result := ISO_4217_MEXICAN_PESO;
132	132		ISO_3166_1_ALPHA_3_NORWAY : result := ISO_4217_NORWEGIAN_KRONE ;
133	133		ISO_3166_1_ALPHA_3_POLAND : result := ISO_4217_POLISH_ZLOTY ;
134	134		ISO_3166_1_ALPHA_3_REPUBLIC_OF_KOREA : result := ISO_4217_SOUTH_KOREAN_WON ;
135	135		ISO_3166_1_ALPHA_3_RUSSIAN_FEDERATION : result := ISO_4217_RUSSIAN_RUBLE ;
136	136		ISO_3166_1_ALPHA_3_SWEDEN : result := ISO_4217_SWEDISH_KRONA ;
137	137		ISO_3166_1_ALPHA_3_SWITZERLAND : result := ISO_4217_SWISS_FRANC ;
138	138		ISO_3166_1_ALPHA_3_UNITED_KINGDOM_OF_GREAT_BRITAIN_AND_NORTHERN_IRELAND :
139	139		result := ISO_4217_POUND_STERLING ;
140	140		ISO_3166_1_ALPHA_3_UNITED_STATES_OF_AMERICA :
141	141		result := ISO_4217_UNITED_STATES_DOLLAR ;
142	142		end;
143	143		end;
144	144		```
145	145
146	146		## Vaihteleva tietue
147	147
148	148		Case-sanaa käytetään myös vaihtelevassa [[Record\|tietueessa]].
149	149
150	150		``` pascal
151	151
152	152		type
153	153
154	154		ScaleKelvin = 223 .. 323;
155	155		ScaleCelsius = -50 .. 50;
156	156
157	157		TemperatureScale = ( celcius, kelvin ) ;
158	158		Temperature = record
159	159		case scale : TemperatureScale of
160	160		celcius : (celcius_value : ScaleCelsius);
161	161		kelvin : (kelvin_value : ScaleKelvin);
162	162		end;
163	163		```
164	164
165	165		## Lisätietoja
166	166
167	167		- [The Case statement](http://www.freepascal.org/docs-html/ref/refsu52.html#x149-15900013.2.2)
168	168		- [Record types](http://www.freepascal.org/docs-html/ref/refsu19.html#x43-500003.3.2)
169	169		- [Tao Yue: Learn Pascal!](http://lazarus-ccr.sourceforge.net/pascal/pas3cb.html) Case
170	170		- [Video: Free Pascal Tutorial 8 - Case Statements](http://www.youtube.com/watch?v=pMr2xtUu3x0)
171	171		- [[Dialog Examples\|ShowMessage]]
172	172		- [[Type]]
173	173
174	174		---
175	175		From the Free Pascal wiki, page "Case/fi", as it stood on 2020-01-24 after a change by Bart, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history