Выбор пользователя

[Афанасий[vedma]]

Привет=)
Я хочу сделать авторизацию в моем проекте.
Вот ввод логина и пароля:

procedure TForm1.btn1Click(Sender: TObject);
begin
//если хоть одно поле неравно тому что нужно ты выходим
if (edtLogin.text <> Login)or (edtPass.Text <> Password) then halt;
//первая форма Hide
Form1.Hide;
//вторую показываем
Form2.Show;
end;

Вот создание формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
//создание переменной
INI:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Data.ini');
//чтение логина
Login := Crypt(INI.ReadString('General','Login','Default'),30);
//чтение пароля
Password :=Crypt(INI.ReadString('General','Pass','Default'),30);
//получение количества зареганых
//Count := INI.ReadInteger('General','Count',0);
end;

Вопрос: Как если есть 2 или более пользователя, сделать выбор пользователя? Есть например Combobox и там зареганные пользователи - так например:
Логин.jpg

[artemavd]

Храни содержимое combobox в файле и загружай, перезаписывая его

[VintProg]

Привет=)

Привет=)


Можно массив из структур построить, и записывать все в файл под циклом. А в заголовке файла своего (внутри смысле). указать кол-во пользователей.

Пример структуры:

Type
  CLoginA = record
    Name : array[0..31] of char;
    Pass  : array[0..31] of char;
    Mail   : array[0..63] of char;
 end;

[astecenko]

Раз уже храните данные по 1 пользователю в ini файле, почему бы не хранить так же в ini данные по другим пользователям, единственно что прийдется создать отдельный ini файл специально для хранения пользовательских данных.
На каждого пользователя секция. То бишь что-то типа:

procedure TForm1.FormCreate(Sender: TObject);
begin
//создание переменной
INI:=TMenIniFile.Create(ExtractFilePath(ParamStr(0)) + 'UserData.ini');
INI.ReadSections(ComboBox1.Items);
//чтение логина
Login := Crypt(INI.ReadString(ComboBox1.Text,'Login','Default'),30);
//чтение пароля
Password :=Crypt(INI.ReadString(ComboBox1.Text,'Pass','Default'),30);
//получение количества зареганых
//Count := INI.ReadInteger('General','Count',0);
end;

[Афанасий[vedma]]

procedure TForm3.Button1Click(Sender: TObject);
begin
name:= INI.WriteString('General','Login',Edit1.Text);
pass:= INI.WriteString('General','Password',Edit2.Text);
end;

вот так да?