Förord

Denna artikel handlar om något som är väldigt användbart i alla programmeringsspråk, nämligen logiska operatorer och selektion. Efter att du har läst denna artikel skall du förhoppningsvis ha fått en uppfattning om hur de används i Delphi.

Innehåll

  » Logiska operatorer
  » Selektion
  » Konstantmängder
  » Operatorerna is och as

Logiska operatorer

På booleska variabler och i logiska uttryck kan man använda de logiska operatorerna and, or och not. Operatorn not negerar uttryck eller logiska värden och kräver en operand.

Operatorerna and, or och xor kräver två uttyck eller logiska värden som operander. I sanningstabellen nedan är a och b två booleska variabler eller uttryck.

Sanningstabell

a	b	a and b	a or b	a xor b
false	false	false	false	false
false	true	false	true	true
true	false	false	true	true
true	true	true	true	false

Ovanstående tabell kan sammanfattas på följande sätt.

• (a and b) har värdet true endast då både a och b är sanna.


• (a or b) har värdet true om någon av a eller b är sann.


• (a xor b) har värdet om a och b har olika värden.

Anta att variabeln x har värdet 25 och variabeln y har värdet 10. Nedan ges några sammansatta uttyck som har värdet true eller false.

Logisk uttyck	Logisk värde
(x=0)	sant
(x-10 > y) and (y <> 0)	sant
not (x	sant

På grund av prioritetsordningen är parenteserna i exemplen ovan helt nödvändiga. Det går alltså inte att skriva det andra exemplet som

x-10 > y and y <> 0 {OBS! Felaktigt}

Eftersom and har högst prioritet innebär detta uttrycket

y and y

beräknas först vilket alltså inte är avsikten.

Ytterligare exempel på sammansatta uttyck.

Påstående	Motsvarande Pascalkod
x har värdet 6, 7 eller 8	(x=6) or (x=7) or x=8)
5.95<=x>6.05	(5.95<=x) and x<6.05)
ch1 är en liten engelsk bokstav	('a'<=ch1) and (ch1<='z')
ch1 är inte en liten engelsk bokstav	not (('a'<=ch1) and (ch1<='z'))

Selektion

Tvåvägsval, if-then-else
I programmeringssammanhang är det vanligt att man måste välja mellan en av två saker beroende på om ett visst villkor är uppfyllt eller inte. Detta villkor formuleras då som ett logiskt uttryck som har värdet true eller false.

Ett tvåvägsval kan se ut enligt följande princip.

if then
truesats
else
falsesats;

Orden if, then och else är reserverade ord.

Ett mer konkret exempel om man använder en etikett för ett skriva ut resultatet.


if tid <=10.3 then
Label1.Caption := 'Till final'
else
Label1.Caption := 'Utslagen';

Det går naturligtvis också bra att köra flera satser i de olika grenarna. De måste i så fall omgärdas med sats-parenteserna begin-end.

if then begin
Sats1;
Sats2;
end
else begin
sats3;
sats4;
sats5;
end;

Här utförs Sats1 och Sats2 om uttrycket är sant, annars utförs Sats3, Sats4 och Sats5.

Flervägsval
Satserna i de båda grenarna i en if-sats kan vara godtyckliga satser. Speciellt kan de bestå av andra if-satser. Man säger då att if-satserna är nästlade. Att satsen i else-grenen utgörs av en ny if-sats är vanligt då man har att välja mellan fler än två saker.

Vi reder ut detta med hjälp av ännu ett exempel.


x := StrToInt(Edit1.Text); //Läs in ett värde till variabeln x.
if x=1 then
Label1.Caption := 'Ett'
else
if x=2 then
Label1.Caption := 'Två'
else
if x=3 then
Label1.Caption := 'Tre'
else
Label1.Caption := 'Stort tal';

De nästlade if-satserna är här utformade som ett upprepat tvåvägsval. Observera indragningarna! Ett if och motsvarande else står precis rakt under varandra för att understryka att de hör ihop. Tumregeln är att ett else alltid hör till närmast föregående if.

Case-satsen
Ibland är tillvägagångssättet ovan den enda möjligheten att formulera ett flervägsval med ömsesidigt uteslutande val. Detta kan bli besvärligt om valen är många. En bättre lösning erbjuder då den s k Case-satsen nedan.


:= StrToInt(Edit1.Text); //Läs in ett värde till variabeln x.
case x of
1: Label1.Caption := 'Ett';
2: Label1.Caption := 'Två';
3: Label1.Caption := 'Tre';
else
Label1.Caption := 'Stort tal';
end;

Det är alltså värdet på x, selektionsvärdet, och värdet i konstantlistan (värdena före kolonet i satserna) som bestämmer vilken tilldelning av etiketten som skall utföras.

Regler för case-satser är följande:

• Selektionsuttrycket måste vara av enkel datatyp men inte flyttalstyp.


• Satsen efter kolon (:) kan vara en godtycklig sats. Om flera satser skall ingå måste de omgärdas av begin-end.


• Om har ett värde bland de uppräknade värdena till vänster om ett kolon (:) utförs satsen för det angivna värdet.


• Om har ett värde som saknas bland de uppräknade värdena till vänster om ett kolon (:) utförs satsen efter else.


• Case-satsen behöver inte ha en else-sats.


• Ett värde kan anges som ett antal uppräknade värden i konstantlistan. Man kan t o m ange ett slutet intervall.


• Lägg märke till att inga variabler får finnas i konstantlistan. Då är det ju ingen konstantlista.

Konstantmängder

Operatorn in
Ett bekvämt hjälpmedel då man skall testa om ett uttryck eller en variabel kan tänkas ha flera olika värden är s k konstantmängder. Konstantmängder anges inom klammerparenteser:

['a'..'z','å','ä','ö']

Som du ser räknas elementen upp ungefär som i en Case-sats.

Följande regler gäller för konstantmängder:

• Elementen måste vara konstanter, ej variabler.


• Ett element i en mängd måste ha ett ordningsnummer 0 .. 255.

Man kan testa med operatorn in (reserverat ord) om ett element finns i en mängd eller inte.

if ch in ['0'..'9'] then
Label1.Caption := 'Siffertecken';
else
Label1.Caption := 'Inget siffertecken';


I proceduren nedan demonstreras hur konstantmängder och in-operatorn kan användas.


procedure TForm1.Button1Click(Sender:TObject);
var
nr : integer;
ch : char;
begin
nr := StrToInt(Edit1.Text);
ch := Chr(nr);
Label2.Caption := 'Ordningsnumret motsvarar tecknet '+ch;
if ch in ['a'..'z','å','ä','ö'] then
Label3.Caption := 'Liten bokstav';
else
if ch in ['A'..'Z','Å','Ä','Ö'] then
Label3.Caption := 'Stor bokstav';
else
if ch in ['0'..'9'] then
Label3.Caption := 'En siffra';
end
else
Label3.Caption := 'Annat tecken!';
end.

En negation av en test med in-operatorn skrivs alltid så här :

if not (ch in ['0'..'9'] then
Label1.Caption := 'Inget siffertecken';

Sätt alltså först en parentes om testen och sedan not strax före parentesen.

Operatorerna is och as

Du har säkert lagt märke till den parameter som Delphi skriver ut till alla händelseprocedurer, Sender av typen TObject. Detta är helt oberoende av om det är en knapp eller en editeringsruta händelseproceduren är knuten till. Det finns två operatorer med vars hjälp man kan hantera denna parameter, nämligen operatorerna is och as. Det kan fungera på följande vis:


procedure TForm1.Button1Click(Sender:TObject);
var
s : string;
begin
if Sender is TButton then
s := 'kommandoknapp'
else
if Sender is TEdit then
s := 'editeringsruta'
else
if Sender is TCheckBox then
s := 'kryssruta'
else
s := 'annan komponent';
Showmessage('Du tryckte på en '+x+'.');
end.

I satsen

if Sender is TButton then

kontrolleras om parametern Sender är av typen TButton.

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: