[DEM]

Начал изучение Delphi, решил сделать не большую программку аля Спецификация
Пока получилось вот что(не пинайте ногами, Я только начал разбираться) см. притаченный файл с исходниками.
К сожалению не получилось пока сделать следующее:
1. Получение списка файлов с расширением .txt из папки с программой
(пока так сказать в ручную забиваю программе)
2. Требуется заполнение ComboBox1 из txt файла выбранного в ComboBox2 без массы элемента разделителем сейчас является ";", грубо говоря сейчас получается "10 А I;0,617", а надо просто "10 А I"
3. С заполнением label1 тоже самое требуется вставить не "10 А I;0,617", а "0,617"

[Baldares]

Э, какой далмаатинец ). Вы что-то путаете Гражданин Товарищ Барин.

Тогда подождем-с.

[DEM]

Baldares
Декстрон тока не надо шифроваться, Я тебя по IP вычислил

[Baldares]

Я сам свой IP не знаю, ты че)))

[JT]

http://beamclc.ru/prg_tcc - прога ТСС для генерации "Технической спецификации стали" для КМовцев - не то?

[DEM]

Сообщение от JT q3log.narod.ru - прога ТСС для генерации "Технической спецификации стали" для КМовцев - не то?

За это 500 ре извиняйте многовато, взлом кстати делается за 2 минуты

[TwoZero]

Достаточно интересная задача, я сам занимался разработкой программы для составления спецификаций, но только в моем случае программа выводит эти спецификации непосредственно на принтер а не в автокад.
Что могу сказать, если ты действительно хочеш зделать программу для составления спецификаций и экспорт их в автокад да еще и на дельфи то тогда тебе нажно уметь создавать ком серверные приложения (в данном случае сервером будет автокад, так как в него мы будем экспортировать спецификации) + возможно тебе придется создавать базу данных для храненния определенного оборудования (это уже как получится), в идеале еще можно было бы прикрутить окно предварительного просмотра. Одно могу сказать точно на дельфи это все выполнимо на все 100%, так что дерзай.

В качестве справочника для дельфи могу посоветовать Delphi World 6 Pro, там есть все что нужно.

[ActiveBaby]

Нашел недавно интересную программку для составления спецификации для КМ на сайте beam.ucoz.org. И вообще таких программ куча, в VetCAD, например тоже есть. Поэтому, думаю, не стоит еще одну писать...

[AlexV]

Сообщение от ActiveBaby Нашел недавно интересную программку для составления спецификации для КМ на сайте beam.ucoz.org. И вообще таких программ куча, в VetCAD, например тоже есть. Поэтому, думаю, не стоит еще одну писать...

ActiveBaby, поздновато как-то советуешь.. Таки почти год прошел, DEM прогу или уже дописал, или забил на нее давно. Али сайт решил попиарить?

Пользуясь случаем, посамопиарюсь-ка и я.. Вот здесь: лежит уже пару месяцев моя программка подсчета спецификаций (VBA Excel 2007. DEM, кстати сказать, тоже принимал участие в ее появлении). Функционал такой: автоматизация составления спецификаций (с выбором типа профиля из базы); автоматическое составление ведомости расхода стали; экспорт таблиц в автокад.. Подробности в дауне по ссылке. Глюки некоторые могут присутствовать, но в целом может немало времени экономить при подсчете ВРС для больших объектов..

[GIP]

Сообщение от DEM Начал изучение Delphi, решил сделать не большую программку аля Спецификация

Я тоже занимался этим вопросом, в результате моей работы я забил базы данных с матералами, которые часто заказываются в проектах марок АС, КЖ, АР и автоматизировал заполнение спецификации и ее вставку в автокад, с возможность черчения автокадом ведомости деталей, подсчета тонажа арматуры и т.д. Этой программой пользуется вся моя группа. Желаю успехов DEM.

А есть еще вот такая прога

[Mozgunov]

1. Получение списка файлов с расширением .txt из папки с программой (пока так сказать в ручную забиваю программе)

1. Лучше наверное сделать так, чтобы в одном текстовом файле хранилась база по одному профилю. А название базы выбирать через ComboBox. А потом уже построчным чтением из файла заполнять StringGrid (это то что вы заполняли ручками). Делается это чтение примерно так :

Код:

[Выделить все]

i:=0;//Включаю счётчик для перехода по строкам SringGrid
while not Eof(F) do //Читаю файл построчно, пока не будет достигнут конец "F" это файл вашей базы. F: TextFile;
begin
ReadLn(F,str);//Читаю строку в переменную str
word:=Copy(str,1,Pos(#9,str)-1);//Читаю до табуляции в переменную word
StringGrid1.Cells[2,i+1]:=word;//Записываю в таблицу
Inc(i);//Увеличиваю значения переменной i на единицу
end;

при этом есть смысл хранить в отдельных ячейках (но в одной строке) номер профиля, длину, массу и.т.д.

2. Требуется заполнение ComboBox1 из txt файла выбранного в ComboBox2 без массы элемента разделителем сейчас является ";", грубо говоря сейчас получается "10 А I;0,617", а надо просто "10 А I"

2. Если пойдёте первым путём, то нужда перебрасывания из одного ComboBox в другой пропадёт. Тоже самое касается и "10 А I;0,617",
эти данные нужно хранить в отдельных ячейках одной строки. При необходимости вывести эти данные например в спецификацию делать примерно так :

Код:

[Выделить все]

spec:='nomer'+'diam'+'class';

где nomer, diam, class значения считанные с ячеек строки SringGrida.

3. С заполнением label1 тоже самое требуется вставить не "10 А I;0,617", а "0,617"

3. Опять же всё решается первым путём. Ну если вам интересно как можно вытащить в Delphi в этикетку вторую часть строки, то это делается примерно так (Советую заменить разделитель ';' на знак табуляции, знак табуляции ставиться символом '#9' без кавычек):

Код:

[Выделить все]

str:='10 А I'+#9+'0,617'+#9;
//Расписываю построчно. Можно собрать в одно действие.
poziciya:=Pos(#9,str);
//Получаю позицию знака табуляции в строке
//Если не знаете строка это массив символов каждый из которых имеет свою позицию
word:=Copy(str,1,poziciya);// Копирую текст с начала строки до знака табуляции в переменную word. Впринципе она нам сейчас не нужна, ну да бог с ней копировали уже.
dlina:=Length(word); Получаю длину текста который содержится в переменной word.
delete(str,1,dlina);//Удаляю ненужный мне кусок строки '10 А I' из переменной str.
poziciya:=Pos(#9,str);//Получаю позицию второго знака табуляции.
word:=Copy(str,1,poziciya);// Копирую текст с начала строки до знака табуляции в переменную word (Тут будет уже нужное вам 0,617).
теперь можно вывести переменную word куда вы пожелаете.

Сокращённую запись см. в ответе на первый вопрос.
А вообще я считаю что нужно прислушаться к топику #9 - кстати так же обозначается знак табуляции . Тогда может что интересное и получиться.

[Сергей Дубина]

У кого нибудь есть пример использования XML для храненения и обработки спецификаций?

[Нитонисе]

Сообщение от GIP Я тоже занимался этим вопросом, в результате моей работы я забил базы данных с матералами, которые часто заказываются в проектах марок АС, КЖ, АР и автоматизировал заполнение спецификации и ее вставку в автокад.

Решаю примерно такую же задачу. Механизм создания спецификации и отрисовки в автокаде отлажен, а вот с заполнением базы данных элементов есть куда стремиться. Не поделитесь базами?

[ShaggyDoc]

Сообщение от Сергей Дубина У кого нибудь есть пример использования XML для храненения и обработки спецификаций?

Пример спецификации в виде XML в zip-архиве
Скриншоты программы, которая с такими спецификациями работает

[Сергей Дубина]

Сообщение от ShaggyDoc Пример спецификации в виде XML в zip-архиве Скриншоты программы, которая с такими спецификациями работает

Спасибо, весьма любопытно.
(но самое интересное осталось за кадром, из чего результат "лепится")