![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Имеем:
Текстовый файла, в нем данные в формате Петров Петр группа: 111 1 ФИО-Группа№ Пароль Данный фал хранит в себе данные для авторизации и сохраняет новые при регистрации. Задача: Проверить, имеются ли в файле введенные данные. Это успешно реализовано так: Код:
LogAndGruppa_Regis:=Register_Familiya.Text+' группа: '+Register_Gruppa.Text+' '+Register_Password.Text; for iterIntCount:=0 to SaveTxt1.Count -1 do begin if LogAndGruppa_Regis = SaveTxt1[iterIntCount] then begin Application.MessageBox('Вы уже зарегистрированы!'+#13#10+'Вы можете авторизоваться!', 'Внимание!',+ MB_ICONWARNING); Exit; end end; if (Register_Familiya.Text = '') or (Register_Gruppa.Text = '') or (Register_Password.Text = '') then begin Application.MessageBox('Вход невозможен!'+#13#10+'Заполните все поля', 'Внимание!',+ MB_ICONWARNING); end else begin Registr_Familiya_P:=Trim(Register_Familiya.Text); Registr_Gruppa_P:=Trim(Register_Gruppa.Text); Registr_Password_P:=Trim(Register_Password.Text); SaveTxt1.Add(Register_Familiya.Text+' группа: '+Register_Gruppa.Text+' '+Register_Password.Text); SaveTxt1.Add('______________________________________________________'); SaveTxt1.Add(' '); SaveTxt1.SaveToFile(ExtractFilePath(Application.ExeName)+'lgn.tnt'); Register_Familiya.clear; Register_Gruppa.clear; Register_Password.clear; Application.MessageBox('Регистрация успешно завершена!'+#13#10+'Вы можете авторизоваться', 'Внимание!',+ MB_ICONASTERISK); end; end; Нужно реализовать проверку по Фамилии Имени и группе, отсекая пароль. Т.е. Если в какой то строке подряд идут данные ФИО Группа и они совпадают с введенным в ЕДИТы - сказать, что юзер уже есть. Битые сутки над этим бьюсь, сил уже нет! Как можно реализовать такое в рамках данного кода? |