[Error] Unit1.pas(43): Declaration expected but end of file found

21.07.2013, 21:55. **Показов** 15470. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'admin' then //Åñëè ëîãèí âåðíûé, òî...
begin
Label3.Caption:='Âû àâòîðèçîâàííû!'; //Àâòîðèçîâûâàåì ïîëüçîâàòåëÿ
end
else //Èíà÷å
begin
Label3.Caption:='Ëîãèí íå âåðíûé!'; //Âûäàåì îøèáêó
end;
end;

Ошибки
[Error] Unit1.pas(43): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Не знаю почему такие каракули когда копируешь из делфи на сайт

@SysUnit · 21.07.2013, 22:05

Dimidrol79, думаю, что в такой формулировке ответить на Ваш вопрос не представляется возможным.
Если это возможно, то выложите сам проект.

С уважением, SysUnit.

@northener · 21.07.2013, 22:48

Не хватает "закрывающего" модуль энда с точкой (end.).

@SysUnit 36 / 33 / 1 Регистрация: 11.01.2013 Сообщений: 388
	21.07.2013, 22:05	2
	Dimidrol79, думаю, что в такой формулировке ответить на Ваш вопрос не представляется возможным. Если это возможно, то выложите сам проект. С уважением, SysUnit. 0

@northener пофигист широкого профиля 4682 / 3118 / 857 Регистрация: 15.07.2013 Сообщений: 17,970
	21.07.2013, 22:48	3
	Не хватает "закрывающего" модуль энда с точкой (end.). 2

Опции темы