Сын пишет программу калькулятора, я помогаю.
На форме в свойстве "Cвязан" кнопок (+ - . =) указываем процедуру Calc.Operation('-') или '+' ...
При нажатии на кнопку получаем сообщение об ошибке
"ошибка команды: несовместимый список параметров в Calc.Operation"
Пример процедуры:
PROCEDURE Operation*(o:CHAR);
BEGIN
CASE o OF
'.':
|'+': |'-': |'*': |'/': |'=':
ELSE
END;
END Operation;
Для проверки ситуации написал такой пример с командером:
MODULE Sample;
IMPORT StdLog;
PROCEDURE Do*(ch:CHAR);
BEGIN
StdLog.Char(ch);
END Do;
END Sample.
Командер"Sample.Do('A')"
При вызове командера получаем подобное же сообщение:
"ошибка команды: несовместимый список параметров в Sample.Do"
При экспериментах попробовал в место Типа CHAR указывать SHORTCHAR вроде все получилось,
но пример не сохранил, а на следующий день ни с CHAR ни с SHORTCHAR ничего не получаеться.
Если бы не положительный результат с SHORTCHAR я бы успокоился и использовал бы целые константы,
Но может кто подскажет, как все таки передать параметр CHAR ИЛИ SHORTCHAR в процедуру при нажатии
кнопки на форме или командера.
Спасибо.
| Вложения: |
Комментарий к файлу: форма
frmCalc.odc [2.66 КБ]
Скачиваний: 649 |
|
Комментарий к файлу: Модуль
Calc.odc [2.15 КБ]
Скачиваний: 664 |