Работа с INI и Microsoft Office

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

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

Доброго времени суток. Возник вопрос по реализации поиска и сопоставления параметров из ini файла.
Есть ini с содержанием типа:
[Москва]
Text=№324234 от 18.02.2020
[Санкт-Петербург]
Text=№232442 от 20.03.2020
и т.п
Из Excel выгружается столбец с перечислением городов.
Далее я сохраняю в Word каждый город в отдельный документ.
И также мне требуется в каждый документ прописать значения из ключейText соответствующий городу.
Примерно так:

Delphi
1
Word.Selection.find.execute (FindText := '%INFO%', replacewith := Ini.ReadString('NAMEGOR','Text',NULL);

Города могут меняться. Как можно реализовать перебор секций из ini и сопоставить их c городами из столбца в Excel?
Заранее спасибо.

@Amilman1 · 14.07.2020, 11:44 **[ТС]**

D1973, Сумма отмеченная красным берется из выражения

Delphi
1
StrToFloat(StringGrid1.Cells[2,I])-StrToFloat(StringGrid1.Cells[17,I]

Или 3 столбец минус 18 столбец в исходном файле Excel

@mr-Crocodile · 14.07.2020, 11:46

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

А откуда берется сумма, выделенная красным?

если я правильно понял, то это

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

(FindText := '%VYCHET%', replacewith := StrToFloat(StringGrid1.Cells[2,I])-StrToFloat(StringGrid1.Cells[17,I]));

предположу, что из файла source_full.xls столбец С (сумма) минус столбец R (Вознаграждение НКО)

Добавлено через 49 секунд
Amilman1, пост #20 увидел?

@Amilman1 · 14.07.2020, 11:51 **[ТС]**

mr-Crocodile, Да увидел, спасибо.

Но теперь при закрытии программы получаю сообщение:
---------------------------

Code
1
2
3
4
5
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:
1 - 12 bytes: TIniFile x 2
205 - 220 bytes: UnicodeString x 2

@mr-Crocodile · 14.07.2020, 12:00

какой ужас!!
у тебя же вообще не должно ничего работать!

ты же ini не присваиваешь.

должно быть

Delphi
1
2
3
4
5
6
7
procedure TForm16.Button5Click(Sender: TObject);
var
   ..
  Ini: Tinifile;
begin
try
   Ini := TInifile.Create(ExtractFilePath(ParamStr(0))+'setting.ini');

и в конце процедуры надо сделать

Delphi
1
Ini.Free;

или

Delphi
1
  FreeAndNil(ini);

и убери строчку с FormCreate

procedure TForm16.FormCreate(Sender: TObject);
begin
~~TInifile.Create(ExtractFilePath(ParamStr (0))+'setting.ini');~~
end;

@Amilman1 · 14.07.2020, 12:07 **[ТС]**

mr-Crocodile, В Button5 я присваиваю ini

Delphi
1
2
3
4
5
6
7
8
procedure TForm16.Button5Click(Sender: TObject);
var
Word: variant;
I,j:integer;
Ini: Tinifile;
begin
try
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'setting.ini');

Скорее всего исходник вам скинул до сохранения проекта..
Вот только про Ini.Free; абсолютно забыл..
А в Create строка закомментирована.

Upd:
FreeAndNil(ini); решило проблему с утечкой памяти.

@mr-Crocodile · 14.07.2020, 12:12

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

Скорее всего исходник вам скинул до сохранения проекта..

не надо так делать.

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

Вот только про Ini.Free; абсолютно забыл..
А в Create строка закомментирована.

ок

@Amilman1 · 14.07.2020, 12:16 **[ТС]**

mr-Crocodile,
И есть еще небольшой вопросик.
В Grid у меня выгружаются все поля данных включая и "Итого".
В связи с этим помимо файлов с наименованием предприятий, пример: "Имя Московское ГПАТП" я получаю документ Word "Имя Итого" который вообще не нужен

Сохранение происходит все там же по кнопке Button5

Как мне исключить обработку последней строки?

@mr-Crocodile · 14.07.2020, 13:43

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

Как мне исключить обработку последней строки?

вижу два простых варианта

1) если в ячейке написано 'Итого' - то эту строчку игнорируем

2) в столбце B должно быть ID (кстати, привязку к INI можно было делать через ID - думаю, что это уникальное поле)
если в столбце B пусто - то эту строчку игнорируем

Добавлено через 3 минуты
на примере кода

Delphi
1
2
3
4
5
6
7
for I := 0 to StringGrid1.RowCount-1 do
begin
   if Trim(StringGrid1.Cells[0,I])<>'Итого' then begin
     // тут код сохранения
      Word.Documents.....
   end;
end;

или

Delphi
1
2
3
4
5
6
7
for I := 0 to StringGrid1.RowCount-1 do
begin
   if Trim(StringGrid1.Cells[1,I])<>'' then begin
     // тут код сохранения
      Word.Documents.....
   end;
end;

@Amilman1 · 14.07.2020, 14:14 **[ТС]**

mr-Crocodile, Спасибо вам за оказанную помощь!

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Amilman1 2 / 2 / 1 Регистрация: 20.04.2015 Сообщений: 78
	14.07.2020, 12:16 [ТС]
	mr-Crocodile, И есть еще небольшой вопросик. В Grid у меня выгружаются все поля данных включая и "Итого". В связи с этим помимо файлов с наименованием предприятий, пример: "Имя Московское ГПАТП" я получаю документ Word "Имя Итого" который вообще не нужен Сохранение происходит все там же по кнопке Button5 Как мне исключить обработку последней строки? 0

@Amilman1 2 / 2 / 1 Регистрация: 20.04.2015 Сообщений: 78
	14.07.2020, 14:14 [ТС]
	mr-Crocodile, Спасибо вам за оказанную помощь! 0

Работа с INI и Microsoft Office

Решение