Текстовый файл

← →
Фагот © (2004-01-19 09:52) [0]

Здравствуйте!
Мне нужно загрузить текстовый файл и обрезать его до определённого размера. Как я могу его обрезать?

← →
Романов Р.В. © (2004-01-19 09:56) [1]

Каким способом загружаешь файл?

← →
Erik © (2004-01-19 10:02) [2]

Stream := TFileStream.Create("MyFile", fmOpenReadWrite+fmShareExclusive);
Stream.Size := 1024; //Или сколько нужно.
Stream.Read
Stream.Write
........
Или использовать TMemoryStream

← →
Ega23 © (2004-01-19 10:35) [3]

Файл-ортодокс :-))))

← →
Amoeba © (2004-01-19 10:49) [4]

Файл Текстовый - и его обрезать до ОПРЕДЕЛЕННОГО размера? И как же этот размер определяется (и в чем измеряется) если файл именно текстовый а не бинарный? Какие-то сапоги в смятку.

← →
Фагот © (2004-01-19 11:18) [5]

Допустим, есть файл, размером 600 Мб. Текстовый. Мне нужно нарезать этот файл размером по 10 Мб. Что тут непонятного, какие сапоги всмятку?

← →
Ega23 © (2004-01-19 11:21) [6]

Читай по-очереди, какие проблемы-то?

← →
Anatoly Podgoretsky © (2004-01-19 11:39) [7]

Seek+Truncate
Открывать как File of byte.

> Seek+Truncate
> Открывать как File of byte.

А можно поподробнее? Ведь если я бы разбирался в данной теме я бы и вопрос не задавал...

Грузишь файл, нарезаешь из него куски в TMemoryStream, последовательно их сохраняешь в файлы. При необходимости сносишь исходный файл.

> Мне нужно нарезать этот файл размером по 10 Мб.

Нарезать кусками файл (хоть бинарный, хоть текстовый) и обрезать (как это звучит в вопросе) текстовый файл - это "две большие разницы" (в случае текстового файла обрезку логично делать по завершению строки, а не где попало - отсюда и мое недоумение).

Текстовый файл Найти похожие ветки