Нужна помощь
Автор
Сообщение
 new-422_3.pdf кто сможет помочь? срок до начала Июня. Среда разработки с++ или pascal. Цену вопроса в ЛС  |
Slider
Заслуженный писатель
Пол:
Зарегистрирован: 13.11.2006
Сообщения: 6289
Откуда: Екатеринбург&Шадринск
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 13.11.2006
Сообщения: 6289
Откуда: Екатеринбург&Шадринск
Статус: Offline
| 5k _________________ накапливаю джедайскую силу http://booking.com/ http://bookingb2b.com/ http://www.aicgroup.biz http://www.gta-travel.com/en/home |
| не стану темоплодить
Лазарус 1.4 Нужно в колонку стринггрида (выпадающий список в ячейке)вывести список файлов из директории Сделал так. procedure get_cust;
var SearchFiles:TsearchRec; begin if FindFirst('customers\*.*', faAnyFile,SearchFiles)=0 then repeat form1.StringGrid1.Columns[1].PickList.AddText(utf8encode(SearchFiles.Name)); until FindNext(SearchFiles)<>0; FindClose(SearchFiles); end; В списке самыми первыми появляются- "." и ".." Сделал колхозно form1.StringGrid1.Columns[1].PickList.Delete(0);
form1.StringGrid1.Columns[1].PickList.Delete(0); Все работает. Вопрос-что это ваще такое?  _________________ Наношу пользу,причиняю добро. |
| mr.Taiga
говорит что есть вышестоящие директории а например, если ты будешь выводить корневую дир. - то при твое решение два каталога удалятся |
kolesa писал(а): если ты будешь выводить корневую дирща заценю. 
Добавлено спустя 1 минуту 21 секунду: точно,ты прав Добавлено спустя 1 минуту 23 секунды: FindFirst-перерыл всю функцию,не увидел про вышестоящие каталоги.Или не туда смотрю? Добавлено спустя 1 минуту 15 секунд: Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint; Добавлено спустя 37 секунд: все аргументы как для детей расписаны _________________ Наношу пользу,причиняю добро. |
| mr.Taiga
не шарю - в лазарусе, но надо проверять аттрибуты, того чего получил (файл это, директория и т.д.) типа if (SearchFiles.attr и бла-бла-бла |
Андрей Алексеевич
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
| mr.Taiga
это ось отдает, если они тебе не нужны, то сравнивай имя и удаляй _________________ 쌀요리를만들기위해사랑 |
| Андрей Алексеевич
ну я тож подумал.впринципе,такого ответа и ждал. я не по имени,а по индексу тупо 2 первых завалил. Спасибо всем,все понятно. Добавлено спустя 47 секунд: а по имени не надо.вдруг я извращенец и обзову файл "." или ".." Добавлено спустя 1 минуту 27 секунд: kolesa для получения директорий-другая функция. глотну пеффка за здоровье программеров. _________________ Наношу пользу,причиняю добро. |
Андрей Алексеевич
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
mr.Taiga писал(а): вдруг я извращенец и обзову файл "." или ".."_________________ 쌀요리를만들기위해사랑 |
| Андрей Алексеевич
говорю же,извращенец _________________ Наношу пользу,причиняю добро. |
Андрей Алексеевич
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
| mr.Taiga
а ты попробуй, результат доложи ))) _________________ 쌀요리를만들기위해사랑 |
| че там докладывать то.под Виндой не дает.
под Убунтой еще не тестил. _________________ Наношу пользу,причиняю добро. |
Андрей Алексеевич
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 10.03.2013
Сообщения: 18397
Статус: Offline
mr.Taiga писал(а): не дает. _________________ 쌀요리를만들기위해사랑 |
Slider
Заслуженный писатель
Пол:
Зарегистрирован: 13.11.2006
Сообщения: 6289
Откуда: Екатеринбург&Шадринск
Статус: Offline
Заслуженный писатель
Пол:
Зарегистрирован: 13.11.2006
Сообщения: 6289
Откуда: Екатеринбург&Шадринск
Статус: Offline
| как мило ) _________________ накапливаю джедайскую силу http://booking.com/ http://bookingb2b.com/ http://www.aicgroup.biz http://www.gta-travel.com/en/home |
| Андрей Алексеевич
ну я не особо и парился-мне надо было знать,че это.Ты ответил. _________________ Наношу пользу,причиняю добро. |
| а интересно "." и ".." какой атрибут отдают? посмотри, а? )
Добавлено спустя 1 минуту 40 секунд: тебе же только файлы вывести внутри каталога? или вложенные директории тоже? |
| kolesa
уже лень,закрыл ИДЕ и бухаю.Приползай вечор. Мне только файлы.ИНИ-шки. В них хранится инфа о заказчиках предприятия. Не использую БД,т.к извращенец. _________________ Наношу пользу,причиняю добро. |
| mr.Taiga
короче твой код будет выводить и вложенные директории надо такое условие if ((SearchFiles.Attr and faDirectory) <> faDirectory) ..... уберет . и .. будут только файлы Добавлено спустя 25 секунд: |
| kolesa
открываю ИДЕ
Добавлено спустя 10 минут 55 секунд: kolesa if (FindFirst('customers\*.*', faAnyFile,SearchFiles)=0 ) and (((SearchFiles.Attr and faDirectory) <> faDirectory)) then компилится,но в список ничего не выходит. пох,забей,колхозно,но работает.заказчику глубоко насрать. _________________ Наношу пользу,причиняю добро. |
mr.Taiga писал(а): но работает.заказчику глубоко насрать.нет, Енот, мы найдем изящное решение ) |
| kolesa
уже нашел. у меня на одной форме есть файллистбокс который динамически обновляется. и я просто этот список в выпадаюший список ячейки подсовываю.одна строчка.колхозокод форэва _________________ Наношу пользу,причиняю добро. |
Страница 1 из 1
| |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете вкладывать файлы Вы можете скачивать файлы |