|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2017, 19:11 | #1 |
Регистрация: 29.11.2016
Сообщений: 4
|
Поиск с файлов
Здравствуйте. Мне нужно сделать процедуру, которая показывает какой транспорт ездит по этой остановке. У меня 25 текстовых файлов (троллейбусов, автобусов, трамваев) и в них маршрут этого транспорта по остановкам. Есть комболайн, в котором есть все остановки. И когда я выбираю определённую остановку. У меня выводит все автобусы/троллейбусы/трамваи , в которых есть эта остановка. Каким самым лёгким способом можно это реализовать?
Saccn на форуме Обратить внимание администрации на это сообщение |
23.05.2017, 20:53 | #2 |
Новичок
Джуниор
Регистрация: 06.05.2016
Сообщений: 1
|
БД в помощь
|
23.05.2017, 21:09 | #3 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
1. Создать структуры данных, в которые будут парситься текстовые файлы и по которым будет вестись поиск.
2. Создать базу данных на чём-нибудь подручном вроде Акцесса, импортёр для загрузки данных из текстовых файлов. Далее - загрузить всё в БД и работать с ней. Цитата:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
24.05.2017, 14:37 | #4 |
Регистрация: 29.11.2016
Сообщений: 4
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) cbb1: TComboBox; cbb2: TComboBox; lbl1: TLabel; lbl2: TLabel; btn1: TButton; img1: TImage; mmo1: TMemo; procedure cbb1Change(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.cbb1Change(Sender: TObject); var s:TStringList; i:Integer; begin cbb2.Clear; s:=TStringList.Create; s.LoadFromFile(cbb1.Text+'.txt'); for i:= 0 to s.Count - 1 do cbb2.Items.Add(s.Strings[i]); s.Free; end; procedure TForm1.btn1Click(Sender: TObject); begin if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=0) then begin img1.Picture.LoadFromFile('1_àâòîáó ñ.bmp'); mmo1.lines.loadfromfile('1_àâòîáóñ. txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=1) then begin img1.Picture.LoadFromFile('2c_àâòîá óñ.bmp'); mmo1.lines.loadfromfile('2c_àâòîáóñ .txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=2) then begin img1.Picture.LoadFromFile('8_àâòîáó ñ.bmp'); mmo1.lines.loadfromfile('8_àâòîáóñ. txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=3) then begin img1.Picture.LoadFromFile('9_àâòîáó ñ.bmp'); mmo1.lines.loadfromfile('9_àâòîáóñ. txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=4) then begin img1.Picture.LoadFromFile('4_àâòîáó ñ.bmp'); mmo1.lines.loadfromfile('4_àâòîáóñ. txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=5) then begin img1.Picture.LoadFromFile('10_àâòîá óñ.bmp'); mmo1.lines.loadfromfile('10_àâòîáóñ .txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=6) then begin img1.Picture.LoadFromFile('33_àâòîá óñ.bmp'); mmo1.lines.loadfromfile('33_àâòîáóñ .txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=7) then begin img1.Picture.LoadFromFile('69_àâòîá óñ.bmp'); mmo1.lines.loadfromfile('69_àâòîáóñ .txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=8) then begin img1.Picture.LoadFromFile('99_àâòîá óñ.bmp'); mmo1.lines.loadfromfile('99_àâòîáóñ .txt'); end; if (cbb1.ItemIndex=0) and (cbb2.ItemIndex=9) then begin img1.Picture.LoadFromFile('100_àâòî áóñ.bmp'); mmo1.lines.loadfromfile('100_àâòîáó ñ.txt'); end; if (cbb1.ItemIndex=1) and (cbb2.ItemIndex=0) then begin img1.Picture.LoadFromFile('3_òðàìâà é.bmp'); mmo1.lines.loadfromfile('3_òðàìâàé. txt'); end; if (cbb1.ItemIndex=1) and (cbb2.ItemIndex=1) then begin img1.Picture.LoadFromFile('5_òðàìâà é.bmp'); mmo1.lines.loadfromfile('5_òðàìâàé. txt'); end; if (cbb1.ItemIndex=1) and (cbb2.ItemIndex=2) then begin img1.Picture.LoadFromFile('6_òðàìâà é.bmp'); mmo1.lines.loadfromfile('6_òðàìâàé. txt'); end; if (cbb1.ItemIndex=1) and (cbb2.ItemIndex=3) then begin img1.Picture.LoadFromFile('9_òðàìâà é.bmp'); mmo1.lines.loadfromfile('9_òðàìâàé. txt'); end; if (cbb1.ItemIndex=1) and (cbb2.ItemIndex=4) then begin img1.Picture.LoadFromFile('11_òðàìâ àé.bmp'); mmo1.lines.loadfromfile('11_òðàìâàé .txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=0) then begin img1.Picture.LoadFromFile('2_òðîëëå éáóñ.bmp'); mmo1.lines.loadfromfile('2_òðîëëåéá óñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=1) then begin img1.Picture.LoadFromFile('3_òðîëëå éáóñ.bmp'); mmo1.lines.loadfromfile('3_òðîëëåéá óñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=2) then begin img1.Picture.LoadFromFile('4_òðîëëå éáóñ.bmp'); mmo1.lines.loadfromfile('4_òðîëëåéá óñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=3) then begin img1.Picture.LoadFromFile('5_òðîëëå éáóñ.bmp'); mmo1.lines.loadfromfile('5_òðîëëåéá óñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=4) then begin img1.Picture.LoadFromFile('67_òðîëë åéáóñ.bmp'); mmo1.lines.loadfromfile('67_òðîëëåé áóñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=5) then begin img1.Picture.LoadFromFile('66_òðîëë åéáóñ.bmp'); mmo1.lines.loadfromfile('66_òðîëëåé áóñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=6) then begin img1.Picture.LoadFromFile('41d_òðîë ëåéáóñ.bmp'); mmo1.lines.loadfromfile('41d_òðîëëå éáóñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=7) then begin img1.Picture.LoadFromFile('35_òðîëë åéáóñ.bmp'); mmo1.lines.loadfromfile('35_òðîëëåé áóñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=8) then begin img1.Picture.LoadFromFile('14_òðîëë åéáóñ.bmp'); mmo1.lines.loadfromfile('14_òðîëëåé áóñ.txt'); end; if (cbb1.ItemIndex=2) and (cbb2.ItemIndex=9) then begin img1.Picture.LoadFromFile('58_òðîëë åéáóñ.bmp'); mmo1.lines.loadfromfile('58_òðîëëåé áóñ.txt'); end; end; end. |
24.05.2017, 14:53 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
Saccn, во-первых, прежде чем копировать текст программы, включите русскую раскладку на клавиатуре, это должно помочь избавиться от "кракозябр" вместо русских букв.
(попробуйте ещё раз вставить код на форум, если хотите показать свой код) во-вторых, код нужно оформлять тегами: Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) в-третьих, позвольте поинтересоваться, для чего Вы приводите здесь свой код? Вы решили задачу и просто решили поделиться своим решением? Или что? |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск файлов | kholoshchak | Общие вопросы Delphi | 7 | 12.11.2013 13:31 |
Поиск файлов по маске и нахождения общего размера найденных файлов и вывод в терминал | Колямбий | Помощь студентам | 0 | 21.04.2013 21:31 |
Поиск файлов | prem1era | Microsoft Office Access | 1 | 23.04.2012 10:28 |
Поиск файлов | NewMen | Помощь студентам | 8 | 05.07.2010 09:18 |
Поиск файлов | Ralf_ru | Общие вопросы Delphi | 1 | 30.03.2009 15:42 |