Что за ошибка?

@Саффа · Регистрация: 04.05.2018

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

что за ошибка [Error] Unit22.pas(50): 'END' expected but 'ELSE' found в коде кто подскажет?

Delphi

procedure TForm22.sButton1Click(Sender: TObject);
begin
DataModule3.ADOQuery4.SQL.Clear;
DataModule3.ADOQuery4.SQL.Add('SELECT Password FROM Users WHERE Login='+#39+sEdit1.Text+#39);
DataModule3.ADOQuery4.Open;
DataModule3.ADOQuery4.IsEmpty;
then
ShowMessage ('Ïîëüçîâàòåëü '+sEdit1.Text+' íå íàéäåí!');
else
end;
if DataModule3.ADOQuery4.FieldbyName('Password').Value <> sEdit2.Text;
then
ShowMessage('?????? ?? ??????');
else
From19.show;
 
 
 
end;
 
end.

@Алекcей · 10.05.2018, 13:25

Уберите ; после последнего showmessage

@qwertehok · 10.05.2018, 15:19

все равно работать не будет

Сообщение от Саффа

DataModule3.ADOQuery4.IsEmpty;

тут нужен if вначале и убрать ; в конце

и все равно работать не будет

Сообщение от Саффа

if DataModule3.ADOQuery4.FieldbyName('Password').Value <> sEdit2.Text;

тут тоже нужно убрать ;

@northener · 11.05.2018, 02:35

Тут не убирать и добавлять надо. Тут надо всё выбросить и написать заново.

@Пытливый · 11.05.2018, 13:22

Согласен, давать нормальны код мы не будем, лучше мы опишем как это должно быть, поправляя друг друга

ПС: Мне этот псевдокод напомнил письмо Дяди Федора из Простоквашино.

@krapotkin · 11.05.2018, 15:39

автору все равно нужно хотя бы begin ... end узнать для чего нужны и правильно расставить
и еще прочитать абзац про
if ... then
begin ...
end
else
begin ...
end;

Delphi

if DataModule3.ADOQuery4.IsEmpty then
begin
 ...
end
else
begin
 ...
end;

Добавлено через 1 минуту
могу посоветовать прочитать вкратце тут
https://www.cyberforum.ru/blog... g5254.html
https://www.cyberforum.ru/blog... g4874.html

@Алекcей 548 / 479 / 190 Регистрация: 11.12.2013 Сообщений: 2,494
	10.05.2018, 13:25	2
	Уберите ; после последнего showmessage 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	10.05.2018, 15:19	3
	все равно работать не будет Сообщение от Саффа DataModule3.ADOQuery4.IsEmpty; тут нужен if вначале и убрать ; в конце и все равно работать не будет Сообщение от Саффа if DataModule3.ADOQuery4.FieldbyName('Password').Value <> sEdit2.Text; тут тоже нужно убрать ; 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,252
	11.05.2018, 02:35	4
	Тут не убирать и добавлять надо. Тут надо всё выбросить и написать заново. 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,373
	11.05.2018, 13:22	5
	Согласен, давать нормальны код мы не будем, лучше мы опишем как это должно быть, поправляя друг друга ПС: Мне этот псевдокод напомнил письмо Дяди Федора из Простоквашино. 0

	11.05.2018, 15:39