Класс это категория объектов, обладающих одинаковыми свойствами и поведением. При этом объект
Про консольные программы я здесь не говорю
жүктеу/скачать 76,6 Kb.
|
Лекция1
- Бұл бет үшін навигация:
- Label и Edit
- IntToStr
| Про консольные программы я здесь не говорю! А в нормальных оконных Windows-приложениях это значение нужно поместить в какой-нибудь компонент, имеющий свойства Text или Caption. Это, например, такие компоненты как Label и Edit, да и сама Форма имеет свойство Caption, куда тоже можно выводить информацию. Однако, в Delphi информацию перед выводом, как правило, необходимо преобразовывать. Так как присвоение возможно только между переменными одного типа, то такая программа (не пытайтесь её исполнять):
var A, B, C: Integer ; begin A := 5 ; B := 10 ; C := A+B ; Label1.Caption := C ; end ; вызовет ошибку, так как свойство Caption имеет текстовый тип String, а использованные переменные - цифровой тип Integer. Значит, нужно преобразовать значение переменной C в текстовый тип. Для этого есть встроенная функция IntToStr. Строка в нашей "программе", вызывавшая ошибку, должна выглядеть так: Label1.Caption := IntToStr(C) ; Такая программа, кроме показа числа 15, ни на что не способна. Мы должны научиться вводить в программу другие числа. Используем компоненты Edit. Введённые числа будут содержаться в свойстве Text этих компонентов. Расположим на форме два компонента Edit, один компонент Label и кнопку Button, по нажатию на которую и будем проводить вычисления. В компоненты Edit1 и Edit2 будем вводить числа для суммирования. Чтобы переместиться в редактор кода, щёлкнем дважды по нашей кнопке Button1. Мы попадём прямо в сформированную для нас средой Delphi заготовку обработчика нажатия на кнопку, непосредственно между операторами begin и end. Напишем такой простой код: procedure TForm1.Button1Click(Sender: TObject); var A, B, C: Integer;//Не забудьте описание переменных begin //Начало кода: A := Edit1.Text; B := Edit2.Text; C := A+B; Label1.Caption := IntToStr(C); //Конец кода жүктеу/скачать 76,6 Kb. Достарыңызбен бөлісу:
|