Показать сообщение отдельно
ES_TeT
новый пользователь
Сообщения: 138
Регистрация: 31.12.2010
Старый пост, нажмите что бы добавить к себе блог 21 апреля 2012, 18:48
  #2250 (ПС)
Помогите с Delphi
Приложение должно производить сцепление двух строк и вывод итоговой строки после нажатия кнопки, всё делаю по пособию, по идее всё должно работать, но работать не хочет . Выдаёт ошибки:
Показать скрытый текст

Код:
[Error] Unit1.pas(43): Undeclared identifier: 'Edit3'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit2'
[Error] Unit1.pas(48): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(49): Undeclared identifier: 'Edit2'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Хотя в пособии ничего про необходимость объявление этих переменных нет, вообщем буду благодарен если опытные люди потратят минуту на нахождение ошибки в коде .
Показать скрытый текст
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
Edit3.Text:=Edit1.Text+Edit2.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.


Добавлено через 3 часа 6 минут 29 секунд
-Цитата от ES_TeT Посмотреть сообщение
Приложение должно производить сцепление двух строк и вывод итоговой строки после нажатия кнопки, всё делаю по пособию, по идее всё должно работать, но работать не хочет . Выдаёт ошибки:
Показать скрытый текст

Код:
[Error] Unit1.pas(43): Undeclared identifier: 'Edit3'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit2'
[Error] Unit1.pas(48): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(49): Undeclared identifier: 'Edit2'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Хотя в пособии ничего про необходимость объявление этих переменных нет, вообщем буду благодарен если опытные люди потратят минуту на нахождение ошибки в коде .
Показать скрытый текст
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
Edit3.Text:=Edit1.Text+Edit2.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.
Неактуально уже, разобрался .

offline
Ответить с цитированием