Чтение из текстового файла

← →
DN © (2002-10-01 16:43) [0]

Есть текстовый файл, в котором необходимо считывать текст до следующего символа - ######. Дальше следует другой бло текста с таким же символом в конце. Подскажите, как организовать чтение такими вот кусками. Спасибо!

← →
MBo © (2002-10-01 16:49) [1]

большой файл?

← →
Игорь Шевченко © (2002-10-01 16:53) [2]

CreateFileMapping, MapViewOfFile и работать как с памятью. К примеру.

← →
Mike Kouzmine (2002-10-01 16:58) [3]

S : AnsiString;
S1 : AnsiString;
while not Eof(F) do
begin
Readln(F,S1);
S := S + S1;
end;
while Length(S) <> 0 do
begin
S1 := Copy(S,1,Pos("#",S) - 1);
Delete(S,1,Pos("#",S));
DoSomth(S1);
end;

← →
DN © (2002-10-01 17:51) [4]

>>MBo © >> Файл от 3-х до 10 Кб.

← →
qube © (2002-10-01 17:57) [5]

Тогда StringList, DeilimitedText

>> Mike Kouzmine >>
Все понятно, кроме DoSomth(S1);

>>Все понятно, кроме DoSomth(S1);
:):):) :):):) :):):)

Чтение из текстового файла Найти похожие ветки