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, 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’

WetWta

Пользователь

Регистрация:
05.07.2013

Сообщения: 20

Рейтинг: 8

senyaz

Пользователь

Регистрация:
04.11.2012

Сообщения: 994

Рейтинг: 749

странно, кстате еще после ned забыл точку с запятой
begin
if Edit1.Text = ‘admin’ then
begin
Label3.Caption:=’Вы авторизованны!’;
end;

Делфи для слабых

Цитата:

begin
Label3.Caption:=’Вы авторизованны!’;
end

Нажмите, чтобы раскрыть…

Убрать begin-end’ы

stealth сказал(а):↑

Нажмите, чтобы раскрыть…

Знаю си, учу делфи т.к. нет больших проектов, но нужна скорость разработки. Смысла нет знать другие языки..

Dimidrol сказал(а):↑

Вот код

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’

Нажмите, чтобы раскрыть…

Я знаю в чем трабла, там в коде ошибка.

Dimidrol сказал(а):↑

Знаю си, учу делфи т.к. нет больших проектов, но нужна скорость разработки. Смысла нет знать другие языки..

Нажмите, чтобы раскрыть…

Знаю си, не учу делфи т.к. нафиг не сдался Лучше подучить Java/C++/C#

Lorax сказал(а):↑

странно, кстате еще после ned забыл точку с запятой
begin
if Edit1.Text = ‘admin’ then
begin
Label3.Caption:=’Вы авторизованны!’;
end;

Нажмите, чтобы раскрыть…

Перед else не надо ставить её
P.S. Создал тему тут т.к. очень большой онлайн и авось кто-то поможет Т.к. на других форумах ждать ответа 2-3 дня не айс. На том же киберфоруме сколько народу, а как долго отвечают в разделе делфи..

Dimidrol сказал(а):↑

Перед else не надо ставить её
P.S. Создал тему тут т.к. очень большой онлайн и авось кто-то поможет Т.к. на других форумах ждать ответа 2-3 дня не айс. На том же киберфоруме сколько народу, а как долго отвечают в разделе делфи..

Нажмите, чтобы раскрыть…

Да, точно : Забыл уже как в паскале это пишется
И, кстати, зачем везде begin-end если там только 1 строчка? можно ведь и без этого
Короче вот так попробуй:

begin
if Edit1.Text = ‘admin’ then
Label3.Caption:=’Вы авторизованны!’;
else //Иначе
Label3.Caption:=’Логин не верный!’;
end;

stealth сказал(а):↑

Знаю си, не учу делфи т.к. нафиг не сдался Лучше подучить Java/C++/C#

Нажмите, чтобы раскрыть…

Зря ты так думаешь Делфи намного легче чем тот же си++, мало чем делфи ему уступает, а в разработке софта типо брута, чекера и т.д. делфи равным нет ofc

IDDQD_ сказал(а):↑

Я знаю в чем трабла, там в коде ошибка.

Нажмите, чтобы раскрыть…

Не, не в коде.

stealth сказал(а):↑

Да, точно : Забыл уже как в паскале это пишется
Ну в конце то . точно надо поставить.
И, кстати, зачем везде begin-end если там только 1 строчка? можно ведь и без этого

Нажмите, чтобы раскрыть…

Привык. Можешь дать вариант как без begin-end-ов ?)

Dimidrol сказал(а):↑

Зря ты так думаешь Делфи намного легче чем тот же си++, мало чем делфи ему уступает, а в разработке софта типо брута, чекера и т.д. делфи равным нет ofc

Не, не в коде.

Привык. Можешь дать вариант как без begin-end-ов ?)

Нажмите, чтобы раскрыть…

Редактнул предыдущее сообщение. Все что выше этого кода не понимаю, ибо не учил, так что если ошибка там, то жди ответа на киберфоруме.
зы Извиняюсь, не заметил, что это процедура (: Не надо в конце .
ззы Непривычно без { }

stealth сказал(а):↑

Редактнул предыдущее сообщение. Все что выше этого кода не понимаю, ибо не учил, так что если ошибка там, то жди ответа на киберфоруме.
зы Извиняюсь, не заметил, что это процедура (: Не надо в конце .

Нажмите, чтобы раскрыть…

Тоже не правильно, создал много новых ошибок
Но ведь перед иначе должно стоять бегин?
Т.к. нельзя что-бы перед else стояло «;»
Тоесть нужно что бы было begin
Соответственно потом должно быть end. Ладно буду ждать мб кто-то ещё знает

Dimidrol сказал(а):↑

Тоже не правильно, создал много новых ошибок
Но ведь перед иначе должно стоять бегин?
Т.к. нельзя что-бы перед else стояло «;»
Тоесть нужно что бы было begin
Соответственно потом должно быть end. Ладно буду ждать мб кто-то ещё знает

Нажмите, чтобы раскрыть…

Просто ; убрать и все. Но ошибка явно где-то сверху
begin
if Edit1.Text = ‘admin’ then
Label3.Caption:=’Вы авторизованны!’
else //Иначе
Label3.Caption:=’Логин не верный!’;
end;

stealth сказал(а):↑

Просто ; убрать и все. Но ошибка явно где-то сверху
begin
if Edit1.Text = ‘admin’ then
Label3.Caption:=’Вы авторизованны!’
else //Иначе
Label3.Caption:=’Логин не верный!’;
end;

Нажмите, чтобы раскрыть…

Ошибка та же.  Автор вот что посоветовал — Проверь соответствие begin end.