Ошибка Forward declaration not solved

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ошибка Forward declaration not solved

Сообщение NiiN20 » 03.02.2019 15:12:20

Error: Forward declaration not solved But1Click(TObject);
И так на все процедуры
Код: Выделить всё
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    But1: TButton;
    But10: TButton;
    But11: TButton;
    But12: TButton;
    But13: TButton;
    But14: TButton;
    But15: TButton;
    But16: TButton;
    But17: TButton;
    But18: TButton;
    But19: TButton;
    But21: TButton;
    But22: TButton;
    But23: TButton;
    But24: TButton;
    But25: TButton;
    But3: TButton;
    But4: TButton;
    But5: TButton;
    But6: TButton;
    But7: TButton;
    But8: TButton;
    But9: TButton;
    Edit1: TEdit;
    procedure But17Click(Sender: TObject);
    procedure But18Click(Sender: TObject);
    procedure But19Click(Sender: TObject);
    procedure But1Click(Sender: TObject);
    procedure But25Click(Sender: TObject);
    procedure But3Click(Sender: TObject);
    procedure But4Click(Sender: TObject);
    procedure ClickBut(Sender: TObject);
    procedure ClickZnak(Sender: TObject);

  private

  public

  end;

var
  Form1: TForm1;
  a, b, c : Real;
  znak : String;

implementation

{$R *.lfm}

{ TForm1 }


end.
procedure TForm1.ClickZnak(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
Edit1.Clear;

znak :=(Sender as TButton).Caption;
end;

procedure TForm1.ClickBut(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + ( Sender as TButton).Caption;
end;

procedure TForm1.But1Click(Sender: TObject);
var
  str : String;
begin
   str := Edit1.Text;
   if str <> '' then
   Delete(str, Length(str), 1);
   Edit1.Text:= str;
end;

procedure TForm1.But17Click(Sender: TObject);

begin
  a := StrToFloat(Edit1.Text);
  a := sqrt (a);
  Edit1.Text :=FloatToStr(a);
  a := 0;
end;

procedure TForm1.But18Click(Sender: TObject);
begin
  a := StrToFloat(Edit1.Text);
  a := sqr (a);
  Edit1.Text :=FloatToStr(a);
  a := 0;
end;

procedure TForm1.But19Click(Sender: TObject);
begin
  a := StrToFloat(Edit1.Text);
  a := 1/(a);
  Edit1.Text :=FloatToStr(a);
  a := 0;
end;

procedure TForm1.But25Click(Sender: TObject);
begin
  b := StrToFloat(Edit1.Text);
  Edit1.Clear;
  case znak of
  '+' : c := a+b;
  '-' : c := a-b;
  '*' : c := a*b;
  '/' : c := a/b;
  end;

  Edit1.Text:= FloatToStr(c);

end;

procedure TForm1.But3Click(Sender: TObject);
begin
  Edit1.Clear;
end;

procedure TForm1.But4Click(Sender: TObject);
begin
  Edit1.Clear;
  a:=0;
  b:=0;
  c:=0;
end;

end.
                                                                                 
NiiN20
незнакомец
 
Сообщения: 1
Зарегистрирован: 03.02.2019 15:07:57

Re: Ошибка Forward declaration not solved

Сообщение iskander » 03.02.2019 22:42:42

Текст после end с точкой компилятором не воспринимается:
Код: Выделить всё
.....
implementation

{$R *.lfm}

{ TForm1 }


end.  //<---
procedure TForm1.ClickZnak(Sender: TObject);
.....
iskander
энтузиаст
 
Сообщения: 590
Зарегистрирован: 08.01.2012 18:43:34


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 38

Рейтинг@Mail.ru