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

Delphi Sources



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

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.11.2018, 19:06
val-tal val-tal вне форума
Прохожий
 
Регистрация: 21.11.2018
Сообщения: 3
Версия Delphi: Delphi7
Репутация: 10
По умолчанию Доработать, исправить код

задача такая, среда Delphi7-Имеется Memo с некими строками типа :

болт=1 //(болт-название, 1- количество)
машина=4
булка=3
пустая строка

и имеется текстовый файл пустой! или со строками типа:
12.12.2018
компот=2
болт=1
машина =1
пустая строка

Задание: нужно пройтись по Мемо по всем строкам , найти в файле совпадения типа
болт=болт и сложить их количество и перезаписать исходный файл с новыми значениями количества,
если в файле нет совпадения типа "Болт"="Болт""
. то просто добавить в файл такую строку

В этом примере в файле должны быть записаны получившиеся строки
12.12.2018
болт=2
машина=5
булка=3
компот=2

Оплата:
1. Вы мне присылаете на почту exe-шник, я проверяю работоспособность кода
2. Если меня все устраивает в коде, отправляю вам деньги-вы мне исходный код
Кусок кода я вам предоставляю, вы его исправляете, дополняете и т.д.
Базы данных не предлагать и прочие хеш таблицы, только Мемо и текстовый файл (такие условия)
со мной связаться если после 17-00 в аське 699297384 или днем на мыло val-tal35@mail.ru
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter