Программа вычисляет доход по вкладу. Если пользователь оставит какое либо из полей незаполненным, то в результате щелчка по кнопке Ok, в поле компонента label4 красным цветом отображается сообщение об ошибке.Если все поля формы заполнены, то в поле компонента label4 в две строки отображается результат расчета. Разбиение текста на строки обеспечивает символ «новая строка» (его код равен 10). Добавить нужный символ в формируемую строку можно с помощью функции chr. Вместо функции chr можно указать код символа, поставив перед значением «решетку»(#). Именно этот способ и используется в рассматриваемой программе.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | //щелчек на кнопке ок procedure TForm8.Button1Click(Sender: TObject); var sum, pr, srok : real; //сумма, процентная ставка, срок вклада (дней) dohod, sum2 : real; //доход и сумма в конце срока вклада begin if (length(edit1.Text)=0) or (length(edit2.Text)=0) or (length(edit3.Text)=0) then begin label4.Font.Color:=clmaroon; //темно-красный label4.Caption:='надо заполнить все поля формы'; end else begin sum:= strtofloat(edit1.Text); pr:=strtofloat(edit2.Text); srok:=strtofloat(edit3.Text); dohod:=sum*(pr/100)*(srok/360); sum2:=sum+dohod; label4.Font.Color:=clnavy; label4.Caption:='доход по вкладу;'+floattostrf(dohod,ffcurrency,6,2)+#10+'сумма в конце срока вклада:'+floattostrf(sum2,ffcurrency,6,2); end; end; |