| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Record

VAZMan ©   (2006-03-27 15:24:00) 

Помогите плиииииз, вообщем суть такова: проблема с определением на наличие логина и пароля, вроде на первый взгляд ничего сложного. но оказалось, что это не так(для меня)...
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(на строке условия)
Что не так?

---

VAZMan   (2006-03-27 18:08:00) [1]

Всем большое спасибо!!!
и отдельная благодарность:
> Сергей М. ©


> Ega23 ©

---

Ega23   (2006-03-27 17:31:00) [2]

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


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

---

VAZMan   (2006-03-27 17:30:00) [3]

дааа, не долго смеялся, появилась еще проблемка...
изменил код:
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;
Теперь в любом случае при выполнении всего этого проект виснет... :(((

---

VAZMan   (2006-03-27 17:04:00) [4]

> Сергей М. ©

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


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

---

Сергей М.   (2006-03-27 16:35:00) [5]

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


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

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

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

---

VAZMan   (2006-03-27 16:25:00) [6]

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

---

Плохиш   (2006-03-27 15:47:00) [7]

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

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

---

Плохиш   (2006-03-27 15:44:00) [8]

> VAZMan ©   (27.03.06 15:24)

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

---

Ega23   (2006-03-27 15:44:00) [9]

while not eof(DataFile) do
  begin

  end;

?

---

VAZMan   (2006-03-27 15:41:00) [10]

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

---

Ega23   (2006-03-27 15:31:00) [11]

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

---

Наверх