Hi, dis dan de tweede vraag voor mijn herkansingsopdracht voor school 
Bij de Then geeft hij aan, Not enough actual parameters, Wat bedoelt hij hiermee, wat is hier fout aan?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| function IsLetter (cTeken: Char): Boolean;
{ Controleert of cTeken een letter is.
pre: -
}
Begin
cTeken := Upcase (cTeken);
Result := cTeken in ['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M',
'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Y',
'Z'];
end;
function AantalLetters (sTekst: String): Integer;
{ Telt het aantal letters in sTekst
pre: -
}
var
ipositie,
iletter: integer;
Cteken: char;
begin
iletter := 0;
for ipositie := 1 to length (stekst)
do begin
cteken := UpCase (stekst[ipositie]);
if cteken in Isletter
then
iletter := iletter + 1;
result := iletter
end;
end; |
Bij de Then geeft hij aan, Not enough actual parameters, Wat bedoelt hij hiermee, wat is hier fout aan?