Работа со TstringList в Delphi

[MaryJaneAlise]

Доброго времени суток, ребзя. Возникла проблема со считыванием строк с внешнего файла. У меня есть форма, куда вводится логин и пароль. Для каждого логина и пароля существует отдельная форма. Все три пользователя админ, юзер и юзер 1. Так вот для админа и юзера все идет норм, он считывает их логин и пароль и открывает нужные формы, а третий никак( Честно. я в дельфи не так много работала, да и я ж девушка ничерта не понимаю( помогите чтоли

вот часть кода(только сильно не ругайтесь):

begin
 SaveTxt := TStringList.Create;
 SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'Regist.txt');
 LogAndPass:=EditLogin.Text+' '+EditPassword.Text;

 for IterIntCount := 0 to SaveTxt.Count  -1 do
      begin
        if LogAndPass=SaveTxt[IterIntCount] then
        begin
          ShowMessage('Добро пожаловать!');
          Form1.Show;
          Close;
        end
          else
          //ShowMessage('Не верный логин или пароль');
           end;
        for IterIntCount := 0 to SaveTxt.Count - 1 do
      begin
        if LogAndPass=SaveTxt[IterIntCount] then
        begin
          ShowMessage('Добро пожаловать!');
           Form1.Hide;
          Form3.Show;
          Close;
        end
          else
          //ShowMessage('Не верный логин или пароль');
           end;
            for IterIntCount := 0 to SaveTxt.Count - "что сюда ставить?" do
      begin
        if LogAndPass=SaveTxt[IterIntCount] then
        begin
          ShowMessage('Добро пожаловать!');
          Form4.Show;
           Form1.Hide;
           Form3.Hide;
          Close;
        end
          else
          //ShowMessage('Не верный логин или пароль');
           end;

идасломалосьуменявсечтобыло(

[Stilet]

А в каком виде хранятся аккаунты?

а третий никак

В каком смысле никак? Поясни подробнее.

[Serge_Bliznykov]

жуть.. Вы вообще не в ту сторону идёте!

каким образом строчка логин + пароль определяет, кто это - пользователь1, пользоатель2, админ или кто-то ещё?!
Номер строчки по порядку?!

и что, для каждого пользователя СВОЯ отдельная форма?! Это неуниверсально! Идусским кодом попахивает...


Ладно, Но, если уж хотите подобного изврящения, должно быть что-то вроде:

  NomerLogin := -1; {пока никого не нашли}
  for IterIntCount := 0 to SaveTxt.Count - 1 do 
        if LogAndPass=SaveTxt[IterIntCount] then begin
            NomerLogin := i;
            Break
        end; 

  case NomerLogin of
     -1: ShowMessage('А ты кто такой?! Давай, до свидания!');
      0:  {админ}
          begin
             ShowMessage('Добро пожаловать!'); 
             Form1.Show;          
          end 
      1: {user1} 
          begin
             ShowMessage('Добро пожаловать!'); 
             Form1.Hide;
             Form3.Show;
          end;
      2: {user2} 
          begin
             ShowMessage('Добро пожаловать!'); 
             ....
          end; 
       ... и т.д.
  end;
  close;

[MaryJaneAlise]

да я извращенка, и писала ж сильно не ругайтесь((

[MaryJaneAlise]

да в txt файле ж