Difference between revisions of "In"
From Lazarus wiki
Jump to navigationJump to search (→example: prettify code) |
(Added range example) |
||
Line 9: | Line 9: | ||
* It is also usable in [[Uses|<syntaxhighlight lang="pascal" enclose="none">uses</syntaxhighlight>‑clauses]]. | * It is also usable in [[Uses|<syntaxhighlight lang="pascal" enclose="none">uses</syntaxhighlight>‑clauses]]. | ||
− | == Example == | + | == Example #1 == |
<syntaxhighlight lang="pascal"> | <syntaxhighlight lang="pascal"> | ||
program projectin; | program projectin; | ||
Line 56: | Line 56: | ||
end; | end; | ||
readln; | readln; | ||
+ | end. | ||
+ | </syntaxhighlight> | ||
+ | |||
+ | ==Example #2== | ||
+ | <syntaxhighlight lang="pascal"> | ||
+ | const Test: char = 'q'; | ||
+ | |||
+ | begin | ||
+ | if (Test in ['0'..'9']) then | ||
+ | Writeln('Digit') | ||
+ | else if (Test in ['A'..'z']) then | ||
+ | Writeln('Letter') | ||
+ | else | ||
+ | Writeln('Other'); | ||
end. | end. | ||
</syntaxhighlight> | </syntaxhighlight> |
Revision as of 22:56, 4 May 2022
│
Deutsch (de) │
English (en) │
suomi (fi) │
The reserved word in
:
- It tests whether a value is in a set. It returns the boolean value
true
if the value belongs to the set andfalse
if the value does not belong to the set. - It is also used with the reserved word
for
in for-in loop. - It is also usable in
uses
‑clauses.
Example #1
program projectin;
uses SysUtils, TypInfo;
type
Berry = (Blueberry, FlyHoneysuckle, Lingonberry, Raspberry, Snowberry, Strawberry);
Berries = set of berry;
var
basket: Berries;
someberry: berry;
str: string;
i: integer;
begin
basket := [];
writeLn('Choose a berry from the following berries into your basket');
repeat
i := 1;
for someberry in berry do
begin
Str := GetEnumName(TypeInfo(Berry),ord(someberry));
writeln(i,' : ',Str);
inc(i);
end;
writeln('0 : exit');
writeln;
readln(i);
if i>0 then
begin
someberry :=Berry(i-1);
Include(basket, someberry);
end;
until i=0;
if (FlyHoneysuckle in basket) or (Snowberry in basket) then
begin
writeln('You have poisonous berries in your basket');
if FlyHoneysuckle in basket then
writeln('Your basket has a poisonous Fly honeysuckle!') ;
if Snowberry in basket then
writeln('Your basket has a poisonous Snowberry!');
end;
writeln('So you had these berries in your basket:');
for someberry in basket do
begin
Str := GetEnumName(TypeInfo(Berry), Ord(someberry));
writeln(Str);
end;
readln;
end.
Example #2
const Test: char = 'q';
begin
if (Test in ['0'..'9']) then
Writeln('Digit')
else if (Test in ['A'..'z']) then
Writeln('Letter')
else
Writeln('Other');
end.