Поиск кротчайшего пути в делфи 7

[Андрос]

Это лишь сырой исходник.Ща делаю нормальный,БД для хранения цен на топливо и наименований топлива,сделал в ассесе.Вопрос новый---можно ли из ини файла вывести отчёт, содержащий цены на топливо и наименования топлива???Пробовал скинуть исходник новый, но весит 1,99 не лезет, буду пробовать по частям....Скоро выложу.Сёння.

[ArtInt]

Исходник так много весит из-за рисунков машины, что на первой и на второй форме, просто можешь их удалить в черновом варианте при отсылке, и потом скомпилировать, и exe тоже не надо в архив вставлять.
Кстати, посмотри может действительно можно расширение у этих рисунков поменьше поставить, чтобы размер готовой программы тоже поменьше был.
И если База аксесс то там записи могут лишнии, которые сохраняются даже после удаления их из базы, поэтому попробуй функцию в аксессе Сжать и восстановить.

[Андрос]

Слушай, посмотрел прогу,СПАСИБО!!!!Практически всё круто!!!!!
Но нашел пару проблем---
1)В едитах---чтоб можно было стирать какой символ надо добавить в кавычках????
2)В сообщении ShowMessage('Пути из города ' + IntToStr(a) + ' в город ' + IntToStr(b) + ' необнаруженно т.к идет ремонт дорог, либо движение в заданном направлении закрыто).'); как можно сделать, чтоб вместо цифры из 4 в 3 выводило из минска в могилев???
3)Небольшая заминка в выводе городов так Минск=>Нарочь=>Cморгонь
цифры выводит в лэйбле правильно <= меняется т.е 1<= 5<= 9, а в городах нет(Цифры придумал сам)
4)можно ли из ини файла вывести отчёт, содержащий цены на топливо и наименования топлива??? а то с базами какоето е...алово с элиасами и т.п
НИКАК НЕ ПОЛУЧАЕТСЯ СКИНУТЬ АРХИВ,ВЕСИТ 1,79

[ArtInt]

Можешь архив в WinRar разделить на несколько частей.
Также можешь как уже говорил удалить рисунки автомобиля.
1.В едитах можно удалять кнопкой delete на клавиатуре.
2. Вроде бы это прописывал

     ShowMessage('Пути из города ' + Combobox1.Items.Strings[a-1] + ' в город ' + Combobox1.Items.Strings[b-1] + ' необнаруженно т.к идет ремонт дорог, либо движение в заданном направлении закрыто).');

3. Вроде смотрел, все выводится правильно и города и индексы... может ты в combobox что изменял?
4. Ладно, заливай программу(как описано выше), там с базами или ини файлами оформлю, чтобы работало.

Все таки насчет 3-го ты прав, но там просто замени строку

LbPath.Caption:=Combobox1.Items.Strings[prev[k]-1]+'=>'+LbPath.Caption;

на

LbPath.Caption:=Combobox1.Items.Strings[prev[k]-1]+Napravlenie+LbPath.Caption;

Скидывай на
intel-art@ya.ru

[Андрос]

Подожди,плиз мин 4,нет медленный....Ща присылаю.Влаживается просто долго...
Единственное я немного поменял алгоритм.Изменения касались комбобокса,точнее его элементов..Извени,что так долго,Просто нет галимый и даже такие архивы кидаютя долго.Так же присутствует такое--
case prev[k] of
1: label1.Caption:='Нарочь =>' + label1.Caption;
2: label1.Caption:='Вилейка=>' + label1.Caption;
3: label1.Caption:='Сморгонь =>' + label1.Caption;
4: label1.Caption:='Ошмяны =>' + label1.Caption;
5: label1.Caption:='Воложин =>' + label1.Caption;
6: label1.Caption:='Заславль=>' + label1.Caption;
7: label1.Caption:='Докшицы =>' + label1.Caption;
8: label1.Caption:='Молодечно =>' + label1.Caption;
9: label1.Caption:='Минск =>' + label1.Caption;
Хтелось бы подробнее узнать о Combobox1.Items.Strings[prev[k]-1],точнее про Items, про Strings[prev[k]-1] и зачем -1

[ArtInt]

Сообщение от Андрос

Хтелось бы подробнее узнать о Combobox1.Items.Strings[prev[k]-1],точнее про Items, про Strings[prev[k]-1] и зачем -1

items-это обращение к списку элементов и их свойствам.
Strings[i]- указывает номер элемента в списке для которого надо вывести текст, А "-1" потому что нумерация элементов начинается с 0. а в программе индексы городов начинаются с 1. Вот для того чтобы попасть на правильный индекс и делаем -1.

[Андрос]

попробую архивами...всего 5 вот3

вот 2 последние,ура,вроде все,напиши открылись архивы???

[ArtInt]

В AdoConnection надо устанавливать не абсолютный, а относительный путь к базе:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=Приложение Microsoft Office Access.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Что точно изменю, так это форма стоимости топлива, так как даже я умидрился случайно удалить две записи вместо одной, а простой пользователь и подавно.

Вот черновой вариант без рисунков.
Скомпилируй его посмотри алгоритмы. Скажи что добавить. Или чего не учел.

[Андрос]

Слушай, какой ты молодец, а вчера в 2-30 вырубился(уснул)юСення встаю,ноут разряжен(забыл выключить).Ща качаю черновик,посмотрю что добавить и скажу....

[Андрос]

КРУТО!!!!Какой ты МОЛОДЕЦ!!!!СУПЕР!!!и с базай круто сделал!!!Я правилино понял--сохранение таблиц идет автоатически т.к присутствует эта строка form6.ADOTable1.Post;???
Пути выводит теперь круто!!!,Единственное я не очень наблюдаю строчки //// Label1.Caption:=IntToStr(prev[k])+Napravlenie+Label1.Caption ,а точнее то что её заменяет.
Но небольшие 4е вопросика я нашел--
1)Всётаки хотелось бы удалять в эдитах на обычную стрелочку <----
2)Cкажи, а какое есть с-во сомбобохе, чтоб вводить информацию нельзя было(ты такое поставил, при выборе городов)
3)Всё круто,мне нравится, а как с оформлением,ничего,лучше же чем было???Можно так и оставлять???
4)В проге вывод городов(типу сморгонь<=нарочь<=минск) мне нравится,прикольно,НО ЕДИНСТВЕННОЕ, если препод всётаки даеб..ся к такому выводу и объяснения про поиск нисходящий не понравится,МОЖНО ЛИ БУДЕТ СДЕЛАТЬ чтоб города выводились правильно без стрелочки <=????
А так ты МОЛОДЕЦ,КРУТО ВСЁ ПРИДУМАЛ!!!+100000 тебе