Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Вниз

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. Во написал! самому смешно стало

---

← →
VAZMan ©   (2006-03-27 17:30) [9]

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

---

← →
Ega23 ©   (2006-03-27 17:31) [10]

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


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

---

← →
VAZMan ©   (2006-03-27 18:08) [11]

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


> Ega23 ©

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.011 c