Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.11.2017, 11:17
ITCOMMUNITY ITCOMMUNITY вне форума
Прохожий
 
Регистрация: 28.11.2017
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Нужна помощь в изменении программы

Уважаемые гуру, нужна Ваша помощь в такой задаче:
Имеется моя программа "Библиотека", нужно не меняя ее функционала переделать ее таким образом, чтобы в ней было реализовано наследование классов. Тоесть на данный момент функционал программы такой: на главной форме есть 3 кнопки (Книги, Друзья (типа читатели) и Реестр книг). При нажатии на каждую из них вызывается еще одна форма, в которой мною реализован определенный функционал. При нажатии на кнопку "Книги" открывается форма с Memo который тянет книги из файла .txt. Под Memo 3 кнопки (Добавить, Сохранить изменения и Удалить) они реализуют соответственные действия (При добавлении открывается форма с Edit и при введении новой книги и нажатии на кнопку "Добавить" она добавляет эту книгу в Memo, при нажатии на кнопку "Сохранить изменения" Memo перезаписывается, и при нажатии на кнопку "Удалить" соответственно строка в Memo удаляется). На кнопке "Друзья" все абсолютно аналогично. Кнопку "Реестр книг" трогать не будем, она задания не касается. ЗАДАЧА ТАКОВА: Мне нужно общую часть добавить в родительскую форму, а функционал (Книги и Друзья) должны быть порождены от родителя. В потомках должна быть только информация о имени файла и названии справочника. Вся механика должна остаться в родителе.
Вложения
Тип файла: rar Библиотека v2.rar (196.5 Кбайт, 1 просмотров)
Ответить с цитированием
  #2  
Старый 01.12.2017, 03:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну дык так просто тут не объяснишь что надо сделать...
Собственно, тебе надо:
1. Выкинуть одну из форм
2. В оставшейся форме:
- переименовываем ее в, например, DicBaseForm
- создаем 2 строковых поля
Код:
public
  FFileName : String;
  FFormName : String;
- Во всем коде, где идет обращение к названию или имени файла, константу заменяем на соответсующее поле
3. Теперь идем в File -> New и создаем 2 формы путем наследования от нашей DicBaseForm.
4. В каждой из форм перекрываем конструктор примерно таким образом:
Код:
constructor TBookForm.Create(AOwner : TComponent);
begin
  FFileName := 'C:\books.txt';
  FFormName := 'Books';
  inherited;
end;
Все.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:44.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter