Ремонт в квартире

@DeadManInc · Регистрация: 20.04.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите, пожалуйста, как реализовать решение такой задачи:

Ремонт в квартире. Имеется список видов ремонта в квартире:

• «Косметический» (покраска потолков и поклейка обоев);
• Окон (3 вида: либо замена старых окон на новые «евро», либо покраска старых рам, либо только утепление);
• Ремонт пола (настил линолеума или ламината);
• Замена электропроводки;
• Замена сантехники;
• Ванная комната «под ключ»;
• Замена дверей.
(ComboBox)
Так же имеется список товаров, необходимых для ремонта. Записать в МЕМО-поле товары, необходимые для выбранного вами типа ремонта и сохранить в файлах, с соответствующими именами, а так же организовать добавление и удаление товаров из списка, при условии их наличия.

Записать список видов ремонта в ComboBox - пустяки. Но также имеется список товаров, необходимых для ремонта. И требуется организовать удаление и добавление товаров при условие их наличия. Как же это организовать, если товары будут в MEMO? Вот именно этот момент и волнует. Подскажите, пожалуйста, как это реализовать, подкиньте идей. Заранее спасибо!

@AHBAR · 08.12.2015, 18:30

Сообщение от DeadManInc

Подскажите, пожалуйста, как это реализовать, подкиньте идей.

покажите скриншот как реализован дизайн

@DeadManInc · 08.12.2015, 19:03 **[ТС]**

Скриншот интерфейса:

@AHBAR · 08.12.2015, 19:16

ну вот по нажатию кнопки добавить товар:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.Text <> '' then  Memo1.Lines.Add(ComboBox1.Text);
end;

Добавлено через 1 минуту
я бы лучше сделал не Мемо а ЛистБокс

Добавлено через 2 минуты
записать информацию в файл:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('fileName.txt');
end;

@DeadManInc · 08.12.2015, 20:03 **[ТС]**

Как добавить товар и записать информацию в файл - я знаю. Затруднения у меня в другом. Имеется список товаров, необходимых для ремонта. И требуется организовать удаление и добавление товаров при условие их наличия. Как же это организовать, если товары будут в MEMO? Вот именно этот момент и волнует

@krapotkin · 08.12.2015, 21:17

думаю, нужно раскрыть тайну, как вообще наличие товара связано с текстом в мемо
и почему вместо этого не спросить, как лучше хранить данные, чтобы были показаны нужные
и сообщить версию Delphi

@DeadManInc · 08.12.2015, 22:09 **[ТС]**

Не знаю, как наличие товара связано с текстом в MEMO. Условие задания такое...

Как лучше хранить данные, чтобы были показаны нужные?

Версия Delphi: 7.0 (Build 4.453)

@krapotkin · 09.12.2015, 12:52

задача состоит в организации небольшой базы данных
таблицы можно хранить конечно и в текстовом файле разделяя точкой с запятой
например файл "товары.txt"

1;краска белая;кг;150
2;саморезы 3.5x40;кор.;20
3;линолеум коричневый;м2;400

для каждой таблицы нужно сделать модель данных со вводом и выводом в файл

Delphi

TProduct=class
  id:integer;
  name:string;
  units:string;
  quantity:float;
end;
 
TProducts=class(TObjectList)
  procedure SaveToFile(const Filename:string);
  procedure LoadFromFile(const Filename:string);
end;

потом сделать вывод этих данных в стринггрид и запись обратно в модель

Delphi

procedure TForm1.LoadProductsGrid();
begin
...
end;
 
procedure TForm1.SaveProductsGrid();
begin
...
end;

потом нужна таблица, какой товар при каком виде ремонта нужен.
выбираем вид в комбобоксе - формируем временный список TProducts из основного, выводим этот список в грид
оттуда отбираем нужные товары в корзину (третий список TProducts)
когда все готово, вычитаем количество товара в корзине из количества товара в основном списке

и вот тогда!
содержимое корзины выводим в мемо. список товаров сохраняем в файл...

@DeadManInc 1 / 1 / 2 Регистрация: 20.04.2015 Сообщений: 49
		1
	Ремонт в квартире 08.12.2015, 18:21. Показов 1292. Ответов 7 Метки нет (Все метки) Здравствуйте. Подскажите, пожалуйста, как реализовать решение такой задачи: Ремонт в квартире. Имеется список видов ремонта в квартире: • «Косметический» (покраска потолков и поклейка обоев); • Окон (3 вида: либо замена старых окон на новые «евро», либо покраска старых рам, либо только утепление); • Ремонт пола (настил линолеума или ламината); • Замена электропроводки; • Замена сантехники; • Ванная комната «под ключ»; • Замена дверей. (ComboBox) Так же имеется список товаров, необходимых для ремонта. Записать в МЕМО-поле товары, необходимые для выбранного вами типа ремонта и сохранить в файлах, с соответствующими именами, а так же организовать добавление и удаление товаров из списка, при условии их наличия. Записать список видов ремонта в ComboBox - пустяки. Но также имеется список товаров, необходимых для ремонта. И требуется организовать удаление и добавление товаров при условие их наличия. Как же это организовать, если товары будут в MEMO? Вот именно этот момент и волнует. Подскажите, пожалуйста, как это реализовать, подкиньте идей. Заранее спасибо! 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,141
	08.12.2015, 18:30	2
	Сообщение от DeadManInc Подскажите, пожалуйста, как это реализовать, подкиньте идей. покажите скриншот как реализован дизайн 0

@DeadManInc 1 / 1 / 2 Регистрация: 20.04.2015 Сообщений: 49
	08.12.2015, 19:03 [ТС]	3
	Скриншот интерфейса: Миниатюры 0

@DeadManInc 1 / 1 / 2 Регистрация: 20.04.2015 Сообщений: 49
	08.12.2015, 20:03 [ТС]	5
	Как добавить товар и записать информацию в файл - я знаю. Затруднения у меня в другом. Имеется список товаров, необходимых для ремонта. И требуется организовать удаление и добавление товаров при условие их наличия. Как же это организовать, если товары будут в MEMO? Вот именно этот момент и волнует 0

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,393 Записей в блоге: 20
	08.12.2015, 21:17	6
	думаю, нужно раскрыть тайну, как вообще наличие товара связано с текстом в мемо и почему вместо этого не спросить, как лучше хранить данные, чтобы были показаны нужные и сообщить версию Delphi 0

@DeadManInc 1 / 1 / 2 Регистрация: 20.04.2015 Сообщений: 49
	08.12.2015, 22:09 [ТС]	7
	Не знаю, как наличие товара связано с текстом в MEMO. Условие задания такое... Как лучше хранить данные, чтобы были показаны нужные? Версия Delphi: 7.0 (Build 4.453) 0

	09.12.2015, 12:52