Программа Хранение паролей в Delphi

[Utkin]

Сообщение от ChEaTeR-abc

Memo1.text нужна чтобы текст из Мемо записывался в файл(ИМХО )

Это делается примерно так memo1.Lines.SaveToFile(имя_файла);

ЗЫ. Хорошо спрошу еще раз, чисто на всякий случай. Почему бы Вам не прочитать для чего нужны try и что за зверь этот Memo?

[ChEaTeR-abc]

Ошибка "Процесс не может получить доступ к файлу, так как этот файл занят другим процессом".Utkin, напиши, пожалуйста, часть программы, добавляющей текст из Мемо в файл.
Вот то что у меня:

    AssignFile(F, 'Пароли.txt');
    Append(F);
    try
      Memo1.Lines.SaveToFile(Пароли.txt');
    finally
      CloseFile(F);
    end;

[Utkin]

    
try
      Memo1.Lines.SaveToFile(Пароли.txt');
    finally
       ShowMessage('А-а-а! Не могу записать в файл!');
    end;

Пойдет?

[ChEaTeR-abc]

Так у меня тоже самое.Только вместо издевательства над новичками закрытие файла .Опять та же ошибка "Процесс не может получить доступ к файлу, так как этот файл занят другим процессом"

Добавлено:
Убрал

    AssignFile(F, Пароли.txt';}
    Append(F);

Теперь опять Мемо заменяет текст в файле

[Utkin]

Вы пробовали мой код? И при этом позакрывали все Блокноты в которых открыт файл Пароли.txt?

ЗЫ. Это не издевательство над новичками. Просто есть определенное подмоножество новичков, которые вместо попытки найти решение стараются навязать свое, заранее неверное мнение. А требуется всего-то следовать инструкциям. Для начала.

ДОБАВЛЕНО -----------------------------------------------
Увидел обновление Вашего поста:

Теперь опять Мемо заменяет текст в файле

А что не должен?
Ну если нет, то сначала прочитай весь файл в Мемо, добавь в него строки или поменяй существующие (ибо в Мемо строки можно представить как массив) и жизнь станет ярче.

[ChEaTeR-abc]

Ошибка была не изза блокнота а изза строк AssignFile(F, пароли.txt'); и Append(F); , но после того как я их убрал вернулась проблема, изза которой я и создал эту тему:нужно чтобы текст из Мемо добавлялся в файл, а он заменяет текст в файле.

[Utkin]

Сообщение от ChEaTeR-abc

Ошибка была не изза блокнота а изза строк AssignFile(F, пароли.txt'); и Append(F); , но после того как я их убрал вернулась проблема, изза которой я и создал эту тему:нужно чтобы текст из Мемо добавлялся в файл, а он заменяет текст в файле.

Из-за чего была ошибка я знаю и специально поставил ситуацию так, чтобы Вы сами до этого дошли. Ибо прямой текст видимо перпендикулярно к Вашему мышлению. Но оставим философию и еще раз объясним действия:
1. Читаем в Мемо
2. Вставляем в него строку
3. Записываем из Мемо в файл.
Вопросы?

[ChEaTeR-abc]

Ура!Получилось, товарищи Теперь Мемо добавляется в начало файла.Если кому интересно вот код:

  try
    Memo1.Lines.LoadFromFile('Ïàðîëè.txt');
    Memo1.Lines.Add(Pass2);
    Memo1.Lines.Add(Key2);
    Memo1.Lines.SaveToFile('Ïàðîëè.txt');
  finally
end;

[Utkin]

Ставь не finally, а except. А в нем сообщение об ошибке. Иначе твой try не имеет смысла.

ЗЫ. А еще проблема в правильной постановке вопроса. Люди знают как помочь, но не понимают, что Вам нужно.

[Grag]

Сообщение от ChEaTeR-abc

Если чесно, я про такие слова как try и finally первый раз слышу .Grag сказал что писать нужно так.

Блоки
try...finally...end;
try...except...end;
это обработка исключительных ситуаций...