program Raschet;
var
a1, a2, a3, b1, b2, b3, c1, c2, c3, X, a1i, a2i, a3i, b1i, b2i, b3i, c1i, c2i, c3i : real;
cmdNext, cmdexit : command;
begin
showForm;//показываем форму //создаём элементы управления
a1 := FormAddTextField('a1=', '', 20, TF_NUMERIC);
a2 := FormAddTextField('a2=', '', 20, TF_NUMERIC);
a3 := FormAddTextField('a3=', '', 20, TF_NUMERIC);
b1 := FormAddTextField('b1=', '', 20, TF_NUMERIC);
b2 := FormAddTextField('b2=', '', 20, TF_NUMERIC);
b3 := FormAddTextField('b3=', '', 20, TF_NUMERIC);
c1 := FormAddTextField('c1=', '', 20, TF_NUMERIC);
c2 := FormAddTextField('c2=', '', 20, TF_NUMERIC);
c3 := FormAddTextField('c3=', '', 20, TF_NUMERIC); //создаём команду(кнопку)
cmdNext := createCommand('Next', CM_OK, 1); AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext; //берём текст, введёный пользователем
a1i:=FormGetText(a1);
a2i:=FormGetText(a2);
a3i:=FormGetText(a3);
b1i:=FormGetText(b1);
b2i:=FormGetText(b2);
b3i:=FormGetText(b3);
c1i:=FormGetText(c1);
c2i:=FormGetText(c2);
c3i:=FormGetText(c3);
X:=a1i*b2i*c3i+a2i*b3i*c1i+a3i*b1i*c2i-a3i*b1i*c3i-a1i*b3i*c2i;
ShowTextBox('Ответ:',''+X , 200, TF_NUMERIC);
cmdExit := CreateCommand('Exit', CM_EXIT, 1);
AddCommand(cmdExit);
repeat delay(100);
until GetClickedCommand = cmdExit;
end.
добавил FormGetTextы, но при компиляции пишет "ошибка в параметре 1" в строках с FormGetTextами