Имеем:
Текстовый файла, в нем данные в формате
Петров Петр группа: 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;
НО! Код целиком вытаскивает строку, поэтому, если вписать в ЕДИТы данные как в строке - скажет, что такой юзер уже есть, а вот если поменять пароль - нет.
Нужно реализовать проверку по Фамилии Имени и группе, отсекая пароль.
Т.е. Если в какой то строке подряд идут данные ФИО Группа и они совпадают с введенным в ЕДИТы - сказать, что юзер уже есть.
Битые сутки над этим бьюсь, сил уже нет!
Как можно реализовать такое в рамках данного кода?