Добрый день Всем.Подскажите ,пожалуйста,есть папка в ней много вложенных друг в друга под папок,как перебрать их что бы добраться до файлов содержащихся в них.Не изменяя структуру
Этот топик читают: Гость
Ответов: 287
Рейтинг: 5
|
|||
карма: 0 |
|
Ответов: 806
Рейтинг: 174
|
|||
Udokanec писал(а): как перебрать их что бы добраться до файлов содержащихся в них
|
|||
карма: 16 |
|
Ответов: 287
Рейтинг: 5
|
|||
Так просто?Старею.
|
|||
карма: 0 |
|
Ответов: 287
Рейтинг: 5
|
|||
Подскажите,пожалуйста,где я накосячил.При небольших файлах прекрасно работает,но если попадается файл килобайт 40 то программа виснет и вырубается
Add(Button,7091212,371,224)
{ Top=625 Width=840 Height=35 Align=4 Flat=0 link(onClick,14744309:doEnum,[]) } Add(ArrayEnum,14744309,434,224) { link(onItem,1494109:doSleepMks,[]) link(onEndEnum,11804175:doMessage,[(482,237)(482,286)]) link(Array,10828110:Array,[]) } Add(Sleep,1494109,490,224) { Delay=2500 link(onSleep,14799399:doEvent1,[]) } Add(Hub,14799399,532,224) { OutCount=3 link(onEvent1,15052181:doLoad,[(590,230)(590,314)]) link(onEvent2,15052181:doSave,[(578,237)(578,321)]) link(onEvent3,13347052:doProcessMessages,[]) } Add(Application,13347052,644,238) { } Add(Message,11804175,497,280) { Point(onOK) link(onOK,2953706:doClose,[(543,293)(543,335)(177,335)(177,111)]) } Add(StrMask,4053873,581,420) { Point(doMask) link(onTrue,10223121:doData,[]) } Add(ArrayEnum,14754293,623,364) { link(onItem,4053873:doCompare,[(671,370)(671,412)(571,412)(571,426)]) link(Array,15052181:Array,[]) } Add(DoData,10223121,630,427) { link(onEventData,15052181:doDelete,[(674,433)(674,381)(583,381)(583,300)]) link(Data,14754293:Index,[]) } Add(Hub,13026352,476,357) { InCount=2 link(onEvent1,8703861:doData,[(508,363)(508,433)]) link(onEvent2,14754293:doEnum,[]) } Add(DoData,8703861,518,427) { link(onEventData,4053873:doMask,[]) link(Data,11647286:Text,[]) } Add(Edit,11647286,518,385) { Left=40 Top=15 Width=265 Height=25 link(onEnter,13026352:doEvent1,[(562,398)(562,384)(455,384)(455,363)]) } Add(Memo,15052181,609,280) { Left=35 Top=95 Width=755 Height=535 ScrollBars=3 Point(doLoad) Point(doSave) link(onChange,13026352:doEvent2,[(646,286)(646,356)(467,356)(467,370)]) link(FileName,14744309:Item,[(622,268)(440,268)]) } Add(MainForm,2953706,189,84) { Width=856 Height=699 link(onCreate,9872589:doBrowse,[]) } Add(Browse,9872589,245,98) { link(onBrowse,15139213:doSearch,[]) } Add(FileSearch,15139213,301,98) { link(onSearch,11812865:doAdd,[]) link(onEndSearch,9728458:doData,[(354,111)(354,153)]) } Add(StrList,11812865,364,98) { } Add(DoData,9728458,364,147) { link(onEventData,10828110:doText,[]) link(Data,11812865:Text,[]) } Add(Memo,10828110,420,126) { Left=40 Top=70 Width=745 Height=35 Visible=1 ScrollBars=3 } |
|||
карма: 0 |
|
Ответов: 4633
Рейтинг: 749
|
|||
Если файл загружается в Memo - то там ограничен размер буфера, по умолчанию в 32 кб.
|
|||
карма: 26 |
|
Ответов: 2059
Рейтинг: 132
|
|||
Udokanec
Чтобы не было ограничений надо добавить сточку Control.MaxTextSize:=MaxInt; в код Memo:
Редактировалось 3 раз(а), последний 2022-01-20 23:50:10 |
|||
карма: 6 |
|
Разработчик
Ответов: 26170
Рейтинг: 2127
|
|||
flint2, я тебя прошу, на будущее -- не ставь никогда теги в кодах.
--- Добавлено в 2022-01-20 23:57:22 Странно, но в KOL ничего подобного про Мемо не написано. Если только Memo считать "simple edit control", но он вроде считается как "multiline edit control" KOL писал(а): property MaxTextSize: DWORD read GetMaxTextSize write SetMaxTextSize;{* |<#richedit> This property valid also for simple edit control, not only for RichEdit. But for usual edit control, maximum text size available is 32K. For RichEdit, limit is 4Gb. By default, RichEdit is limited to 32767 bytes (to set maximum size available to 2Gb, assign MaxInt value to a property). Also, to get current text size of RichEdit, use property TextSize or RE_TextSize[ ]. } flint2, ты Memo лично проверял? --- Добавлено в 2022-01-21 00:19:11 Сейчас проверил Memo без исправлений, загрузив в него файл 5,4Мб, спокойно залез. Откуда вы это взяли, что ограничение для Memo 32Кб? Я помню, что грузил в него и 100Мб. Еще раз проверил и грузнул в него 43Мб. Да, долго, но загрузился весь и сохранился тем же размером. --- Добавлено в 2022-01-21 00:25:01 RichEdit поправил, проверил, все работает. Обновление на SVN --- Добавлено в 2022-01-21 00:36:11 Я могу, конечно, и в Memo воткнуть для успокоения души, но надо ли? Тест говорит, что не надо. Редактировалось 6 раз(а), последний 2022-01-21 00:36:11 |
|||
карма: 22 |
|
Ответов: 2059
Рейтинг: 132
|
|||
flint2, ты Memo лично проверял? Нет, умозрительно. А сейчас проверил! Попробуй чего либо набрать в Мемо при уже загруженном большом файле(у меня для проверки 3,98 МБ). У тебя работает? И при 1,63 МБ. не работает. Порог срабатывания не буду искать. P.S. С добавлением заработало. Редактировалось 4 раз(а), последний 2022-01-21 01:29:48 |
|||
карма: 6 |
|
Разработчик
Ответов: 26170
Рейтинг: 2127
|
|||
flint2 писал(а): Попробуй чего либо набрать в МемоСтранное поведение -- писать пишет, а редактировать не дает. Сейчас обновлю. --- Добавлено в 2022-01-21 04:32:45 Обновил Memo на SVN. Редактировалось 1 раз(а), последний 2022-01-21 04:32:45 |
|||
карма: 22 |
|
Ответов: 287
Рейтинг: 5
|
|||
Обновил SVN.Теперь Memo и RichEdit заново в прогу устанавливать?
--- Добавлено в 2022-01-21 12:01:21 По моему тут дело не в Memo.Где то в коде я натупил.Вот только где Редактировалось 1 раз(а), последний 2022-01-21 12:01:21 |
|||
карма: 0 |
|
Ответов: 806
Рейтинг: 174
|
|||
Udokanec, А что ты пытаешься сделать?
Удалить строчки соответствующих маске из файлов, находящихся в определённом каталоге? Или что-то другое? Как по мне, так это делается совсем по-другому. |
|||
карма: 16 |
|
Ответов: 287
Рейтинг: 5
|
|||
Да мне надо удалить строки содержащие определенные символы.В папке окло 10-14 тысяч файлов.Если в файле встречается одно- два совпадения то прога отрабатывает без проблем.А если встречается с десяток совпадений то виснет.Фантазии хватило только на такую схему.
|
|||
карма: 0 |
|
Ответов: 806
Рейтинг: 174
|
|||
Udokanec, Скопируй несколько своих файлов в отдельный каталог и попробуй эту схему.
Udokanec, Схему изменил. Смотри личку. Редактировалось 3 раз(а), последний 2022-01-22 12:00:46 |
|||
карма: 16 |
| ||
Голосовали: | Udokanec |
13