Code
d:=(brp*brp)-(4*arp*crp);
dr:=FormGetText(d);
у тебя d является переменной, в которой хранится значение дискриминанта, а ты пытаешься использовать её как id какого-то несуществующего TextFiled'а
Code
program ax2_bx_c_mobile;
var okCommand:command;
a,b,c,x1,x2,x:integer;
d:integer;
dr,x1r,x2r,ar,br,cr:string;
drp,x1rp,x2rp,arp,brp,crp:integer;
begin
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
a := formAddTextField('Введите a', '', 20, TF_NUMERIC);
b := formAddTextField('Введите b', '', 20, TF_NUMERIC);
c := formAddTextField('Введите c', '', 20, TF_NUMERIC);
while (getClickedCommand <> okCommand) do
delay(100);
ar:=FormGetText(a);
br:=FormGetText(b);
cr:=FormGetText©;
arp:=StringToInteger(ar);
brp:=StringToInteger(br);
crp:=StringToInteger(cr);
d:=(brp*brp)-(4*arp*crp);
ShowTextBox('Дискрименант равен:',''+d,100,TF_NUMERIC);
while (getClickedCommand <> okCommand) do
delay(100);
End.
вот так будет работать
