Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2017, 19:11   #1
Saccn
 
Регистрация: 29.11.2016
Сообщений: 4
По умолчанию Поиск с файлов

Здравствуйте. Мне нужно сделать процедуру, которая показывает какой транспорт ездит по этой остановке. У меня 25 текстовых файлов (троллейбусов, автобусов, трамваев) и в них маршрут этого транспорта по остановкам. Есть комболайн, в котором есть все остановки. И когда я выбираю определённую остановку. У меня выводит все автобусы/троллейбусы/трамваи , в которых есть эта остановка. Каким самым лёгким способом можно это реализовать?
Saccn на форуме Обратить внимание администрации на это сообщение
Saccn вне форума Ответить с цитированием
Старый 23.05.2017, 20:53   #2
Tad1936
Новичок
Джуниор
 
Регистрация: 06.05.2016
Сообщений: 1
По умолчанию

БД в помощь
Tad1936 вне форума Ответить с цитированием
Старый 23.05.2017, 21:09   #3
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от Saccn Посмотреть сообщение
Каким самым лёгким способом можно это реализовать?
1. Создать структуры данных, в которые будут парситься текстовые файлы и по которым будет вестись поиск.
2. Создать базу данных на чём-нибудь подручном вроде Акцесса, импортёр для загрузки данных из текстовых файлов. Далее - загрузить всё в БД и работать с ней.

Цитата:
Saccn на форуме Обратить внимание администрации на это сообщение
А Фрунзе знает?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 24.05.2017, 14:37   #4
Saccn
 
Регистрация: 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.
Saccn вне форума Ответить с цитированием
Старый 24.05.2017, 14:53   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Saccn, во-первых, прежде чем копировать текст программы, включите русскую раскладку на клавиатуре, это должно помочь избавиться от "кракозябр" вместо русских букв.
(попробуйте ещё раз вставить код на форум, если хотите показать свой код)

во-вторых, код нужно оформлять тегами:
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)

в-третьих, позвольте поинтересоваться, для чего Вы приводите здесь свой код?
Вы решили задачу и просто решили поделиться своим решением?
Или что?
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск файлов 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