Загрузка базы из текстового файла в StringGrid с возможностью выбора

@meteor12 · Регистрация: 07.04.2018

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

Имеется вот такая программа в которой есть StringGrid со столбцами «буквы» и «цифры».
В папке с программой в папке db есть файл текстовой базы db.txt, он имеет такую же структуру — столбец «буквы» и столбец «цифры».

Необходимо сделать так чтобы при нажатии на любую ячейку столбца «буквы» появлялся выпадающий список и в нем отображались данные из столбца «буквы» файла db.txt. После того как значение в выпадающем списке выбрано в ячейке этой строки в столбце «цифры» должно появиться значение для этой ячейки из файла db.txt.

Как это сделать?

@qwertehok · 20.05.2020, 15:38

это грид, в нем нет стандартного combobox для выбора

@meteor12 · 20.05.2020, 17:10 **[ТС]**

qwertehok, в нем есть SelectEditor

@qwertehok · 20.05.2020, 17:12

ну если есть выпадающий список - то читай файл в StringList и показывай в Combobox одну колонку

@volvo · 20.05.2020, 17:29

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

это грид, в нем нет стандартного combobox для выбора

Ну-ну... Еще раз: Лазарус - не Дельфи...

Добавляем в StringGrid нужное количество столбцов, и делаем в нужных столбцах соответствующий PickList:

Загрузка базы из текстового файла в StringGrid с возможностью выбора

Все нормально отображается:

@meteor12 · 20.05.2020, 17:30 **[ТС]**

qwertehok, вот что получается. но это не совсем правильно отображается. файл базы создан и редактируется в другом StringGrid созданном в lazarus. как это правильно сделать для такого типа базы данных?

@meteor12 · 20.05.2020, 17:31 **[ТС]**

volvo, какой у вас симпотичный lazarus!

@qwertehok · 20.05.2020, 17:33

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

Еще раз: Лазарус - не Дельфи...

да да
я уже понял как у вас все круто

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

какой у вас симпотичный lazarus!

тема наверняка какая то в линуксе

@meteor12 · 20.05.2020, 17:47 **[ТС]**

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

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
  var Editor: TWinControl);
begin
  if ACol = 1 then // второй столбец с ComboBox
begin
  Editor := StringGrid1.EditorByStyle(cbsPickList);
  TCustomComboBox(Editor).items.loadfromfile('db/db.txt'); // данные из файла для столбца буквы
end;
end;

@qwertehok · 20.05.2020, 17:52

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

вот что получается. он просто загружает все содержимое базы в выпадающий список.

а кто то писал про

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

он имеет такую же структуру — столбец «буквы» и столбец «цифры».

к тому же я говорил что файл надо загружать в StringList, но это если у файла точно 2 колонки
а у тебя чуть ли не xml

@meteor12 · 20.05.2020, 18:08 **[ТС]**

qwertehok, структура базы именно такая же. но если загружаю в StringGrid как указано ниже, то получается что при нажатии на ячейку сразу загружается вся база в таблицу. при этом выпадающий список пуст.

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
  var Editor: TWinControl);
begin
  if ACol = 1 then // второй столбец с ComboBox
begin
  Editor := StringGrid1.EditorByStyle(cbsPickList);
  StringGrid1.loadfromfile('db/db.txt'); // данные из файла для столбца буквы
end;
end;

Содержимое файла базы:

XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <grid version="3">
    <saveoptions create="False" position="False" content="True"/>
    <content>
      <cells cellcount="14">
        <cell1 column="0" row="0" text="#"/>
        <cell2 column="0" row="1" text="1"/>
        <cell3 column="0" row="2" text="2"/>
        <cell4 column="0" row="3" text="3"/>
        <cell5 column="0" row="4" text="4"/>
        <cell6 column="0" row="5" text="5"/>
        <cell7 column="1" row="0" text="буквы"/>
        <cell8 column="1" row="1" text="ааааа"/>
        <cell9 column="1" row="2" text="бббб"/>
        <cell10 column="1" row="3" text="вввв"/>
        <cell11 column="2" row="0" text="цифры"/>
        <cell12 column="2" row="1" text="111"/>
        <cell13 column="2" row="2" text="222"/>
        <cell14 column="2" row="3" text="333"/>
      </cells>
    </content>
  </grid>
</CONFIG>

@qwertehok · 20.05.2020, 18:21

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

Содержимое файла базы:

это не база
это XML файл
он текстовый, но как текст его не прочитать просто так. его надо обрабатывать как XML

разумеется просто через loadfromfile ты его не прочитаешь
гугли "как в лазарусе прочитать xml"

@meteor12 · 20.05.2020, 18:37 **[ТС]**

qwertehok, поискал. ничего внятного не нашлось к сожалению.

подскажите если есть возможность.

загружать данные из такой базы в обычные Tedit просто:

Pascal
1
2
Form1.Edit1.text:= StringGrid1.Cells[1, StringGrid1.Row];
Form1.Edit2.text:= StringGrid1.Cells[2, StringGrid1.Row];

но как сделать чтобы это работало как описано в начале для загрузки в StringGrid пока не придумал.

@qwertehok · 20.05.2020, 18:43

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

подскажите если есть возможность.

https://wiki.freepascal.org/XML_Tutorial/ru

@meteor12 · 20.05.2020, 18:50 **[ТС]**

qwertehok, про загрузку XML в StringGrid там ничего не сказано.

@qwertehok · 20.05.2020, 18:53

а такого и не будет
ты XML разбираешь и в цикле грузишь в грид

главное понять как разобрать. нужно научиться обращаться к элементам xml и читать их в переменную

@meteor12 · 20.05.2020, 19:00 **[ТС]**

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

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

если есть пример как это сделать похожий на данный вариант. буду очень признателен.

@qwertehok · 20.05.2020, 19:09

по ссылке все есть

Code
1
2
3
4
5
6
 <?xml version="1.0"?>
 <request>
   <request_type>PUT_FILE</request_type>
   <username>123</username>
   <password>abc</password>
 </request>

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  PassNode: TDOMNode;
  Doc:      TXMLDocument;
 begin
  // Читаем xml файл с жесткого диска
  ReadXMLFile(Doc, 'c:\xmlfiles\test.xml');
  try
    // Запрашиваем узел с именем "password"
    PassNode := Doc.DocumentElement.FindNode('password');
    // Выводим значение выбранного узла
    //Неправильный способ
    WriteLn(PassNode.NodeValue); // вывод будет пустым
    //Правильный способ
    // Текст узла - это отдельный дочерний узел
    WriteLn(PassNode.FirstChild.NodeValue); // правильно выведет "abc"
    // Альтернативный способ
    WriteLn(PassNode.TextContent);
  finally
    // В завершении делаем Free для документа
    Doc.Free;
  end; 
end;

вот это и есть чтение XML

@volvo · 20.05.2020, 19:30

Я просто оставлю это здесь...

@meteor12 · 20.05.2020, 21:31 **[ТС]**

volvo, работает не совсем так.
например если в столбце "цифры" выбрано значение "ааа" то в ячейке напротив в столбце "буквы" значение "111" должно появиться автоматически.
если выбрано "ббб", то значение "222" должно появиться в ячейке напротив автоматически

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

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	20.05.2020, 15:38
	это грид, в нем нет стандартного combobox для выбора 0

@meteor12 84 / 2 / 1 Регистрация: 07.04.2018 Сообщений: 255
	20.05.2020, 17:10 [ТС]
	qwertehok, в нем есть SelectEditor 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	20.05.2020, 17:12
	ну если есть выпадающий список - то читай файл в StringList и показывай в Combobox одну колонку 1

@meteor12 84 / 2 / 1 Регистрация: 07.04.2018 Сообщений: 255
	20.05.2020, 17:31 [ТС]
	volvo, какой у вас симпотичный lazarus! 0

@meteor12 84 / 2 / 1 Регистрация: 07.04.2018 Сообщений: 255
	20.05.2020, 18:50 [ТС]
	qwertehok, про загрузку XML в StringGrid там ничего не сказано. 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	20.05.2020, 18:53
	а такого и не будет ты XML разбираешь и в цикле грузишь в грид главное понять как разобрать. нужно научиться обращаться к элементам xml и читать их в переменную 1

@meteor12 84 / 2 / 1 Регистрация: 07.04.2018 Сообщений: 255
	20.05.2020, 21:31 [ТС]
	volvo, работает не совсем так. например если в столбце "цифры" выбрано значение "ааа" то в ячейке напротив в столбце "буквы" значение "111" должно появиться автоматически. если выбрано "ббб", то значение "222" должно появиться в ячейке напротив автоматически Добавлено через 6 минут в ячейках столбца "цифры" выпадающий список не нужен. туда должны загружаться цифры из базы 0