А как осуществить тип
real? Например вводят 12.23 и 23.12 нужно чтоб сложились
program Calk;
var ch1,ch2,ress:integer;{ch11,ch22,}
ch11,ch22,res:real;
cmdr:command;
chislo1,chislo2:string;
begin
ShowForm;
ch1:=FormAddTextField('Первое число','1',50,TF_NUMERIC);
ch2:=FormAddTextField('Второе число','2',50,TF_NUMERIC);
cmdr:=createCommand('Решить',CM_SCREEN,1);
addCommand(cmdr);
repeat
until GetClickedCommand = cmdr;
chislo1:=formGetText(ch1);
chislo2:=formGetText(ch2);
ch11:=StringToReal(chislo1);
ch22:=StringToReal(chislo2);
res:=ch11+ch22;
ress:=FormAddTextField('Результат:',RealToString(res),50,TF_NUMERIC);
delay(5000);
end.
На выделенные строки паскаль ругается