/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/f0_MV.pas
40 строк
801 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
uses FormsABC; type Model = class class procedure Calc(x,y: integer; var sum,prod: integer); begin sum := x + y; prod := x * y; end; end; View = class private a,b,sum,prod: IntegerField; procedure MyClick; begin var s,p: integer; Model.Calc(a.Value,b.Value,s,p); sum.Value := s; prod.Value := p; end; public constructor Create; begin a := new IntegerField('a:'); b := new IntegerField('b:'); LineBreak; sum := new IntegerField('Сумма:',220); LineBreak; prod := new IntegerField('Произведение:',220); LineBreak; EmptyLine(20); var d := new Button('Вычислить'); d.Click += MyClick; end; end; begin var v := new View; end.