procedure TForm1.razdelClick(Sender: TObject); var a,b,c:integer; begin a:=strtoint(input1.text); b:=strtoint(input2.Text) output1.text:=strtoint(a/b); end; Народ, найдите пожалуйста ошибку! В строчке с output
miha, output1.text:=inttostr(a/b); Правильно будет вроде! Птому что strtoint это целое изображением которого является строка, а вот inttostr строка являющаяся изображением целого!
Кто нить здесь умеет писать действительно стоящие программы? Кто умеет пишите в 446000662 есть предложение работать в команде. Не думейте я не за халявой гоняюсь сам программист!
22 июл 2009 в 16:01