Запись и Чтение Имени и пароля в текстовом файле

[vitamin.rulez]

Здравствуйте все!
У меня такой вопрос Как мне записать Имя например из edit1 и Пароль из edit2 в текстовый файл, а затем загрузить эти данные.
PS. Количество записей не ограничено.

[Манжосов Денис :)]

var sl: TStringList;
begin
  SL := TStringList.Create;
  with Sl do
   begin
    Add (Edit1.text);
    Add (Edit2.Text);
    SaveToFile('Text.txt')
    Free;
   end;
end;

Чтобы загрузить данные используй LoadFromFile ('test.txt')

[vitamin.rulez]

он делает 1-ну запись
и считывание я не понял тоже как делать(

[Stilet]

Считывание по коду Дэна:

var sl: TStringList;
begin
  SL := TStringList.Create;
  sl.loadFromFile('Text.txt')
  Edit1.text:=sl[0];
  Edit2.text:=sl[1];
   end;
end;

[vitamin.rulez]

Опять не то, мне как бы нужно создать Базу данных в файле

[SERG1980]

Попробуйте через файл записей
но через СтрингЛист проще

[Stilet]

Тогда ИНИ файлы - тут много уж обсуждалось
Или просто уже существующую СУБД примени

[vitamin.rulez]

а как через стринглист считывать отдельно имя и пароль?

[goblinyara]

1 строка - имя, 2 строка - пароль.
либо:
какой-нибудь разделитель, загружаете весь файл,затем каждую строку в стринглисте просматриваешь и по выбранному разделителю разделяешь.
либо:
делаешь 2 файла, в одном имена, в другом пароли, расположены они в одинаковом порядке. затем в 2 стринглиста загружаешь, и каждый элемент 1 стринглиста связываешь с элементом из 2 стринглиста с тем же индексом.

[SERG1980]

Функции Pos и Copy