TFileStream

[cb251132]

Сообщение от evg_m

ну почему же. Вполне можно любому числу выделить одинаковое число позиций.
Заполнять незначащие позиции можно как пробелом, так и 0.

9
 9
09

три варианта записи одного и того же числа.

format('%.8d %8d', [n, n*20]); // разный вывод двух чисел НО каждое из которых займет ровно 8 позиций.

кроме того любую строку можно дополнять пробелами ПОСЛЕ вывода всех чисел.

s --строка с числами
spacestr -- строка с пробелами желаемой длины строки вывода
r:=copy(s +spacestr, 1, length(spacestr)); //строка для вывода

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

[northener]

Сообщение от cb251132

К сожалению, да. Но это такой медленный способ, в сравнении с молниеносной обработкой Tfilestream, что просто одно расстройство.

Попробуйте заменить текстовые файлы на не текстовые.

[cb251132]

Сообщение от northener

Попробуйте заменить текстовые файлы на не текстовые.

Объем данных ведь это не изменит, но, наверное, позволит реализовать задачу иным способом. Можете конкретизировать свою идею?

[Pavia]

cb251132 Нечего клянчить код. Никто его за вас его писать не будет. Тут работы на 1 час. Но кто же будет просто так час времени тратить?

Открываете файл как бинарный последовательно читаете блоками по 256 кбайт. В каждом блоке находите код новой строки он состоит из нескольких байт так что надо обработать границу корректно. Переводите смещение относительно блока в смещение от начала файла FileOffset=N*BlockSize+BlockOffset
Запоминаете эти результаты в список. Затем используя TFilestream.seek() читаете нужные строки.

Что касается метода предложенного northener он чутка по проще. Используем F:Text; вычитываем строки дополняем нулями SetLength(Str,40); и записываем при помощи Filestream.WriteBuffer(str[1],40*SizeOf(Char)); в файл.

[BLACK_RAIN]

А эти числа обязательно должны быть в текcтовом файле или можно в бинарном?

[evg_m]

текстовый - нетекстовый

Объем данных ведь это не изменит,

(величина постоянная 8 шт. в любой строке) и сочетаний однозначных, двузначных чисел. Одинаковый размер обеспечить невозможно.

двузначные числа в двоичном коде умещаются в байт.
восемь максимально двузначных чисел займут при правильной организации 8 байт.

Одна строка занимает минимум 17 байт, максимум 26 байт

так как состоит из сочетания символов табуляции служащих разделителем

а нужны ли они будут ЕСЛИ все числа имеют свое фиксированное место.

но, наверное, позволит реализовать задачу иным способом.

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

[cb251132]

evg_m,

Сообщение от evg_m

текстовый - нетекстовый

двузначные числа в двоичном коде умещаются в байт.
восемь максимально двузначных чисел займут при правильной организации 8 байт.


а нужны ли они будут ЕСЛИ все числа имеют свое фиксированное место.


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

Для решения этой задачи недостаточно познаний. Обойдусь найденным вариантом решения через TextFile. Всем спасибо.