Record

← →
VAZMan © (2006-03-27 15:24) [0]

Помогите плиииииз, вообщем суть такова: проблема с определением на наличие логина и пароля, вроде на первый взгляд ничего сложного. но оказалось, что это не так(для меня)...
while not eof(DataFile) if (AvtLogin.Text = Users.Login) and (AvtPassword.Text = Users.Password) then begin Avtoriz.Visible:= false; Form1.Show; end else begin Application.MessageBox(PChar("Не верный логин или пароль!"),"Ошибка!",MB_OK); end; end;
Выдается ошибка: Operator not applicable or semicolon(на строке условия)
Что не так?

← →
Ega23 © (2006-03-27 15:31) [1]

Какие типы данных у
AvtLogin.Text,
Users.Login,
AvtPassword.Text и
Users.Password?

← →
VAZMan © (2006-03-27 15:41) [2]

Users.login, users.password - string
а AvtLogin и AvtPassword - это эдиты, как я понимаю, они тоже стринг

← →
Плохиш © (2006-03-27 15:44) [3]

> VAZMan © (27.03.06 15:24)

Приятно видеть куски бесконечных циклов :-))

← →
Ega23 © (2006-03-27 15:44) [4]

while not eof(DataFile) do
begin

end;

?

← →
Плохиш © (2006-03-27 15:47) [5]

> Ega23 © (27.03.06 15:44) [4]

А почему "do" не выделил? ;-)

← →
VAZMan © (2006-03-27 16:25) [6]

хммм??? ни че понять не могу...

← →
Сергей М. © (2006-03-27 16:35) [7]

> VAZMan © (27.03.06 16:25) [6]
> хммм??? ни че понять не могу...

Паскаль батенька, Паскаль ...

WHILE условие DO чего-то там;

Где твой DO, спрашивается ?

← →
VAZMan © (2006-03-27 17:04) [8]

> Сергей М. ©

Спасибо! такая глупость... :))) Спасибо еще раз!
> Плохиш © (27.03.06 15:44) [3]
>
> > VAZMan © (27.03.06 15:24)
>
> Приятно видеть куски бесконечных циклов :-))

А я думаю про что ты говоришь, теперь вижу :) щас иправим...
P.S. Во написал! самому смешно стало

дааа, не долго смеялся, появилась еще проблемка...
изменил код:
var Users: UserInfo; Found: boolean; begin AssignFile(DataFile, "c:\kurs\users.db"); Reset(DataFile); Found:=false; Seek(DataFile, 0); while not eof(DataFile) do begin if (AvtLogin.Text = Users.Login) and (AvtPassword.Text = Users.Password) then found:=true; end; if found then begin Avtoriz.Visible:= false; Form1.Show; end else begin Application.MessageBox(PChar("Íå âåðíûé ëîãèí èëè ïàðîëü!"),"Îøèáêà!", MB_OK); end; end;
Теперь в любом случае при выполнении всего этого проект виснет... :(((

> Теперь в любом случае при выполнении всего этого проект
> виснет... :(((

Естественно виснет. Где ты на следующую запись в цикле переходишь? Грубо говоря, где Read?

Record Найти похожие ветки