[BuTeK22]

Здравствуйте форумчане!
Я пытался сделать что то типо авторизации но столкнулся с ошибкой!
Вот код программы:

Код:

If (Edit1.Text<>'') and (Edit2.Text<>'') then
else ShowMessage('Недопустимы пустые поля');
If ADOTable1.Locate('Логин',Edit1.Text,[loCaseInsensitive, loPartialKey])
and ADOTable1.FieldByName('Пароль').AsString=Edit2.Text then
 Showmessage('Получилось!')
else Showmessage('Не получилось!!!!!!');

а вот ошибка-(Incompatible types: 'String' and 'Boolean')
Курсор появляется после слова (AsString)

Что делать? Как избавится от ошибки?

[Pilot_Red]

дк а что у тебя выполняется если это выполнится If (Edit1.Text<>'') and (Edit2.Text<>'') then.........
это во-первых

во-вторых
If ADOTable1.Locate('Логин',Edit1.Text,[loCaseInsensitive, loPartialKey])
and (ADOTable1.FieldByName('Пароль').AsString=Edit2.Te xt)
вот так правильнее будет

[BuTeK22]

Спасибо огромное все получилось что хотел!