Як зробити програму "замітки" (delphi 7)?

Як зробити програму
Компонент "Memo"

У даній інструкції буде розглянута програма "Нотатки". У ній буде використаний компонент "memo". При бажанні, можна буде додати зберігати список в .txt файл і завантажуватися з нього (також розглянуто в інструкції).

Інструкція

Рівень складності: Легко

1 крок

Додайте наступні компоненти на форму:
- Memo1
- Edit1
- Button1, Button2, Button3
Перейменуйте кнопки в: "Додати", "Видалити", "Очистити" відповідно.

2 крок

Як зробити програму
Після виконання перших 2х кроків.



В обробник "onclick" Button1 вставте:
begin
Memo1.Lines.Add (Edit1.Text)
//Edit1.Clear-
end-
Приберіть "//" в третій сходинці, якщо хочете, щоб Edit1 очищався після копіювання тексту з нього в Memo1.

У Button2 (onclick) вставте:
begin
if Memo1.Lines.Countlt;> 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 крок

Як зробити програму
Програма в результаті.

Запустіть програму. При натисканні на "Додати" вміст "Edit1" копіюється в рядок в "Memo1", при натисканні на "Видалити" віддаляється виділяється рядок, а якщо натиснути на "Очистити" - видаляються всі рядки в Memo1.

Поради та попередження:

  • Якщо Ви додавали кнопки "Зберегти" та "Завантажити" - не забудьте в коді замінити "Путь.txt" на реальний шлях. Наприклад: C: My_Files MyNotepad.txt.






» » Як зробити програму "замітки" (delphi 7)?