Case/fi: what changed

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

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

Back to history