|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сделал программу которая делит числа
Сделал программу(точнее,почти сделал)которая делит числа.Однако,Результат не показывает. Делал в Lazarus. Вот код. В чем ошибка?
Код:
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; EditNum1: TEdit; EditNum2: TEdit; EditNum3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin end; procedure TForm1.Button1Click(Sender: TObject); var Num1,Num2,Num3:Real; begin Num1:=StrToFloat(EditNum1.text); Num2:=StrToFloat(EditNum2.text); Num3:=Num1 / Num2; EditNum3.text:=FloatToStr(Num3) end; end. Последний раз редактировалось Admin, 22.03.2017 в 22:13. |
#2
|
|||
|
|||
EditNum3.text:=FloatToStr(Num3)
На конце нет ";' |
#3
|
||||
|
||||
Цитата:
В обработчик попадает вообще? Пишу программы за еду. __________________ |
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
R4gnoR, если при компиляции Вашей программы не возникает ошибок, то посмотрите выставленные в компоненте Edit опции для шрифта. Возможно, что у Вас цвет шрифта совпадает с фоном компонента?
|
#6
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#7
|
||||
|
||||
Зря спорите, здесь тема про лазаря, а как там в нём нужно кодить неизвестно, одна строка
Код:
{$mode objfpc}{$H+} Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#8
|
|||
|
|||
Ну, для начала, точка с запятой у проследнего оператора не обязательна у последнего оператора функции по стандарту языка. Так что Дельфи и Лазарь (читай FreePascal, т.к. Лазарь всего лишь оболочка над ним) тут абсолютно непричем.
Теперь по поводу проблемы. Код, на первый взгляд, вполне правильный. Т.е. тут получается 3 варианта: 1. Что-то не то с компонентом. Он почему-то не отражает помещенные в него данные. Тут можно просто проверить, засунув в него что-нить через ObjectInspector и/или просто присвоив строку в коде. 2. Что-то не так с самим обработчиком. При нажатии на кнопку он просто не вызывается. Пробуем поставить точку останова и запуститься в дебаге. 3. Что-то не так с самим кодом. Например, ты вводишь число, которое не может быть обработано функцией StrToFloat, но она, вместо того, что бы "выкинуть" исключение, просто прерывает выполнене обработчика (например, там в библиотеке стоит Abort). Меняем на StrToInt и проверяем на целых числах. |