Работа с ini файлами

[missfortune]

Delphi
Как сделать,чтобы в ини файл записывалась каждая регистрация?
Моя ошибка в том,что я записываю все в одну строку. Как это исправить?
С изменением регистрации скорее всего сломается авторизация. Помогите написать код,чтобы все работало. Уже 3 день мучаюсь

procedure TForm2.Button1Click(Sender: TObject); //рег
begin
Ini:=TIniFile.Create('F:\лабы прога\prak\logpa\MyIni.ini');
if (Edit1.Text='') or (edit2.Text='') then Showmessage('Введите значения')
else
Ini.WriteString('Регистрация1','Логин', Edit1.Text);
Ini.WriteString('Регистрация1','Пароль', Edit2.Text);
Button2.Enabled:=true;
end;

procedure TForm2.Button2Click(Sender: TObject);  //вход
begin
if (Edit1.Text=Ini.ReadString('Регистрация','Логин', Edit1.Text)) and (edit2.Text=Ini.ReadString('Регистрация','Пароль', Edit2.Text)) then
ShowMessage('Вход выполнен!')
else ShowMessage('Логин или пароль введен неверно!');
end;

[BDA]

Добавить поле, в котором хранится количество регистраций. Сначала его считывать, а потом уже записывать новую регистрацию в секцию "Регистрация" + IntToStr(count) и новое количество регистраций. В процедуру проверки добавить цикл, который будет проверять введенные данные по всем регистрациям.

[Viktor61]

Уточните, пож-та, ТЗ

... сделать,чтобы в ини файл записывалась каждая регистрация?

Можно понять так: где-то просто фиксировать всех зарегистрированных, при регистрации нового Логина-Пароля старый затирается этим новым. Естественно, "старый" Логин-пароль исчезает и осуществить вход со "старыми" данными становится невозможно. Тогда - просто копирование данных в какой-нибудь файл. По порядку...

Можно понять так: Логин-пароль добавляется, старый сохраняется. При вводе "старого" логина-пароля он проверяется на корректность, если корректен - пользователь со "старым" Логином-паролем допускается к работе. Тогда, для работы с *ini-файлом его вначале надо подготовить: дополнить секциями [Регистрация1], [Регистрация2], [Регистрация3], и т.д. сколько нужно. Добавить секцию [количество регистраций]. И воспользоваться советом ув. BDA.

Что Вы хотите в вашей программе?

[missfortune]

2 вариант.
При регистрации сохранялись в ини файл данные
[Регистрация 1]
Логин=..
Пароль=..
[Регистрация 2]
Логин =..
Пароль=..
и тд.
И не затирались.
А проверка могла осуществляться по этим регистрациям

[Viktor61]

1). Строка в коде, мне представляется возможным источником ошибок:

Сообщение от missfortune

if (Edit1.Text=Ini.ReadString('Регистр ация','Логин', Edit1.Text)) and (edit2.Text=Ini.ReadString('Регистр ация','Пароль', Edit2.Text)) then

Edit1.Text (как и Edit2.Text)- в Ini.ReadString('Регистрация','Логин ', Edit1.Text) значения по умолчанию и, если в секции [Регистрация] не найдется ничего, то будет edit1.Text =Edit1.Text (edit2.Text =Edit2.Text) и, соответственно вход разрешен. Также надо при сравнении удалить пробелы слева и справа (Трим(Edit1.Text) и т.п.).

2) По сути 2-го варианта (Для проверки Логина-Пароля):
В *.ini добавить секцию [количество] и параметр Count, в программу var Count: integer.
Считать из *.ini Count := Ini.ReadInteger('количество', Count, 0);
В цикле

var  sTmp: string;  
 i, k: integer;
 for i := 1 to Count do begin
 sTmp :=  Ini.ReadString('Регистрация'+IntToStr(count),'Логин', Edit1.Text);
  //считывать из *.ini Логин и сравнивать с введенным пользователем.
 k := i;
 if TRIM(Edit1.Text) =  sTmp then break;
 end;

//если не найден пользователь с введенным в edit1.Text Логином, то его не надо допускать к работе.
Если же пользователь с таким Логином имеется, то, зная секцию этого пользователя, равную 'Регистрация'+IntToStr(k ), можно сразу считать Пароль и сравнить c введенным пользователем edit2.Text.
Код не проверял, но надеюсь, что он сработает. Успехов!

[BDA]

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

[Viktor61]

Сообщение от BDA

одинаковые логины при сохранении данных регистрации и их проверке.

Однозначно - при вводе нового Логина надо организовать проверку на наличие Логина с Логином, который пытается ввести пользователь. Это - общепринятая практика: например, при регистрации на каком-либо сайте в такой ситуации вываливается окошко, что такой-то Логин уже занят и предлагается ввести другой.
По сути всей затеи хранить Логины-Пароли в *.ini: так себе идея. Файл *.ini хранится в незашифрованном виде, возможен для редактирования любым текстовым редактором... Лучше для таких целей подойдет какая-нибудь таблица БД, поддерживающая шифрование. Впрочем, предполагаю, что у задавшего вопрос missfortune цель больше учебно-тренировочная, чем практическая.

[Heneken87]

Может подобные операции лучше хранить в зашифрованном XML? INI для подобных целей крайне плохо подходит. Все это шифрование так себе защите, но по крайней мере данные не хранятся открыто.
Вот так закодируйте:

function EncodeText(AKey, AText: string): string;
var
  i,pl,AInc: Integer;
  AVl: Integer;
begin
  Result := '';
  pl := Length(AKey);
  if pl = 0 then Exit;
  if Length(AText) = 0 then
  Exit;
  AInc := 1;
  for i := 1 to Length(AText) do
  begin
    AVl := ord(AText[i]) - Ord(AKey[AInc]);
    Inc(AInc);
    if AInc > pl then
    AInc := 1;
    Result := Result + IntToStr(AVl) + ';';
  end;
  for I := 1 to Length(Result) do
  Result[i] := Chr(ord(Result[i]) + pl);
end;

Вот так декодируйте:

function DecodeText(AKey, AText: string): string;
var
  i,pl,AInc: Integer;
  APos: Integer;
  ATh: string;
begin
  Result := '';
  pl := Length(AKey);
  if pl = 0 then Exit;
  if Length(AText) = 0 then
  Exit;
  for I := 1 to Length(AText) do
  AText[i] := Chr(ord(AText[i]) - pl);
  ATh := '';
  APos := Pos(';',AText);
  AInc := 1;
  try
    while APos <> 0 do
    begin
      ATh := Copy(AText,1,APos - 1);
      Delete(AText,1,Length(ATh) + 1);
      APos := Pos(';',AText);
      Result := Result + Chr(ord(StrToInt(ATh)) + Ord(AKey[AInc]));
      Inc(AInc);
      if AInc > pl then
      AInc := 1;
    end;
  except
    Result := '';
  end;
end;

Метод кодирования по ключу.