|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2023, 20:08 | #1 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Не работает TFileStream.Seek при больших файлах
Пытаюсь использовать Seek при чтении какой-то строки в большом файле ( 26.5 Гб - 327 258 385 строк по 81 символу).
Не работает, когда счетчик байтов более High(Integer), хотя использую Int64. Код:
Если просто строки по порядку , без Seek - то работает, но очень долго, проверял. Код:
PS Это в Delphi 7, кстати и в Lazarus v1.6.4 - то же самое. Последний раз редактировалось type_Oleg; 11.01.2023 в 20:15. |
11.01.2023, 20:39 | #2 |
Форумчанин
Регистрация: 17.10.2018
Сообщений: 184
|
Чем хорош дельфи? Тем что по Ф7-Ф8 можно пройти пошагово, просмотреть значения переменных, и получить ошибку в читаемом для человека виде.
Код:
|
11.01.2023, 20:52 | #3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
nb - нормально все. Вот - на рис при вводе 100 000 000
Я нашёл выход- Код:
|
13.01.2023, 10:06 | #4 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
В коде из 1 сообщения вместо "soFromBeginning" использовать "SoBeginning" в строке:
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
13.01.2023, 11:20 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Замена Seek | fedorova-nusa | Помощь студентам | 16 | 24.12.2014 09:37 |
Не работает поиск записи методом seek. | zakat2 | Microsoft Office Access | 5 | 08.08.2014 12:51 |
Lazarus. TProcess. Cannot seek on pipe | Stilet | Lazarus, Free Pascal, CodeTyphon | 2 | 27.12.2012 23:28 |
seek & textfile | dukales | Помощь студентам | 3 | 06.09.2011 18:17 |
Быстрый поиск в больших текстовых файлах | RIO | Общие вопросы Delphi | 6 | 29.04.2011 15:46 |