Как сделать программу "заметки" (Delphi 7)?

Как сделать программу "заметки" (Delphi 7)?
Компонент "Memo"

В данной инструкции будет рассмотрена программа “Заметки”. В ней будет использован компонент “memo”. При желании, можно будет добавить сохранять список в .txt файл и загружаться из него (также рассмотрено в инструкции).

Инструкция

Уровень сложности: Легко

1 шаг

Добавьте следующие компоненты на форму:
- Memo1
- Edit1
- Button1, Button2, Button3
Переименуйте кнопки в: “Добавить”, “Удалить”, “Очистить” соответственно.

2 шаг

Как сделать программу "заметки" (Delphi 7)?
После выполнения первых 2х шагов.

В обработчик “OnClick” Button1 вставьте:
begin
Memo1.Lines.Add(Edit1.Text)
//Edit1.Clear;
end;
Уберите “//” в 3й строчке, если хотите, чтобы Edit1 очищался после копирования текста из него в Memo1.

В Button2 (onclick) вставьте:
begin
if Memo1.Lines.Count<>0 then
Memo1.Lines.Delete(Memo1.CaretPos.Y);
end;

В Button3 (onclick) вставьте:
begin
Memo1.Lines.Clear;
end;

Если Вы хотите, чтобы содержимое “Memo1” сохранялось в файл, добавьте “Button4”, назовите ее “Сохранить” и в обработчик события “OnClick” вставьте:
Begin
Memo1.Lines.SaveToFile(‘Путь.txt’);
End;

Также можно загружать строки в Memo из .txt файла. Для этого добавьте еще одну кнопку, назовите ее “Загрузить” и на “OnClick” вставьте:
Begin
Memo1.Lines.LoadFromFile(‘Путь.txt’);
End;
При этом .txt файле после каждой новой записи должен использоваться перенос строки. В таком формате записи файл будет сохранятся при использовании кнопки “сохранить”.

3 шаг

Как сделать программу "заметки" (Delphi 7)?
Программа в результате.

Запустите программу. При нажатии на “Добавить” содержимое “Edit1” копируется в строку в “Memo1”, при нажатии на “Удалить” удаляется выделяемая строка, а если нажать на “Очистить” – удаляются все строки в Memo1.

Советы и предупреждения:

  • Если Вы добавляли кнопки "Сохранить" и "Загрузить" - не забудьте в коде заменить "Путь.txt" на реальный путь. Например: C:\My_Files\MyNotepad.txt .

Обсуждение

Ваш комментарий

Запросить инструкцию

Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!

Рейтинг
  1. +
  2. 0
0
1