Good afternoon all,
Please after write the above procedure, I received the errors: Upper
bound of case range is less than lower bound and duplicate case label
procedure DisplayGrade(Sender: TObject);
var
grade : String;
tuitionFee: String;
gradeSelected: String;
begin
gradeSelected := cbbGradeList.Items[cbbGradeList.ItemIndex];
case gradeSelected of
'12'..'12': tuitionFee := '14500.00';
'8'..'11' : tuitionFee := '13500.00';
'1'..'7' : tuitionFee := '8000.00';
else
tuitionFee := '850.00';
end;
end;
--
Kind Regards
Eric Kom
System Administrator & Programmer - Metropolitan College
_________________________________________
/ You are scrupulously honest, frank, and \
| straightforward. Therefore you have few |
\ friends. /
-----------------------------------------
\
\
.--.
|o_o |
|:_/ |
// \ \
(| Kom | )
/'\_ _/`\
\___)=(___/
2 Hennie Van Till, White River, 1240
Tel: 013 750 2255 | Fax: 013 750 0105 | Cell: 078 879 1334
[email protected] | [email protected]
www.kom.za.net | www.kom.za.org | www.erickom.co.za
Key fingerprint: 513E E91A C243 3020 8735 09BB 2DBC 5AD7 A9DA 1EF5
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
