[R4gnoR]

Сделал программу(точнее,почти сделал)которая делит числа.Однако,Результат не показывает. Делал в Lazarus. Вот код. В чем ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

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.

Админ: Пользуемся тегами при оформлении кода!

[gadmaker]

EditNum3.text:=FloatToStr(Num3)
На конце нет ";'

[NumLock]

Сообщение от gadmaker

EditNum3.text:=FloatToStr(Num3)
На конце нет ";'

В Delphi она не обязательна.


В обработчик попадает вообще?

[ffpereverzev]

Сообщение от NumLock

В Delphi она не обязательна.

В обработчик попадает вообще?

Я с Вами не совсем согласен. Точку с запятой можно не ставить только после последнего в программе оператора. Разве не так? В любом другом месте программы Вы получите ошибку при компиляции (missing operator or semicolon). Нельзя говорить что в Delphi этот оператор не обязателен.

[ffpereverzev]

R4gnoR, если при компиляции Вашей программы не возникает ошибок, то посмотрите выставленные в компоненте Edit опции для шрифта. Возможно, что у Вас цвет шрифта совпадает с фоном компонента?

[NumLock]

Сообщение от ffpereverzev

Я с Вами не совсем согласен.

Ну и зря, потому что я это проверил)

[Alegun]

Зря спорите, здесь тема про лазаря, а как там в нём нужно кодить неизвестно, одна строка

Код:

1	{$mode objfpc}{$H+}

чего стоит, мож ещё нужно какиенить директивы подключить, при переносе в D7 код работает

[lmikle]

Ну, для начала, точка с запятой у проследнего оператора не обязательна у последнего оператора функции по стандарту языка. Так что Дельфи и Лазарь (читай FreePascal, т.к. Лазарь всего лишь оболочка над ним) тут абсолютно непричем.
Теперь по поводу проблемы. Код, на первый взгляд, вполне правильный. Т.е. тут получается 3 варианта:
1. Что-то не то с компонентом. Он почему-то не отражает помещенные в него данные. Тут можно просто проверить, засунув в него что-нить через ObjectInspector и/или просто присвоив строку в коде.
2. Что-то не так с самим обработчиком. При нажатии на кнопку он просто не вызывается. Пробуем поставить точку останова и запуститься в дебаге.
3. Что-то не так с самим кодом. Например, ты вводишь число, которое не может быть обработано функцией StrToFloat, но она, вместо того, что бы "выкинуть" исключение, просто прерывает выполнене обработчика (например, там в библиотеке стоит Abort). Меняем на StrToInt и проверяем на целых числах.